109716034 发表于 2016-4-12 17:02:23

插入本地媒体好像有问题

user_uesmcuwd 发表于 2016-4-12 17:04:34

与原来相比，格式被完全保留了，很好！但横线好象没有任何改进，而且插入本地媒体出了问题！
你是怎样实现格式不变的呢？是重新建的文本框还是直接复制粘连产生的文本框？最好是能贴出一点代码。

jinxun 发表于 2016-4-12 17:25:30

ActiveWindow.Selection.TextRange.Copy
Set tShape = ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, dbLeft - 6, dbTop - 6, 100, 50)
tShape .TextFrame.TextRange.PasteSpecial (ppPasteDefault)
横线使用的是原来的shift加-所得的_ ，下次使用下划线看看是不是好看一些了。
插入本地媒体出问题了，顾此失彼呀。看来又要修改了。
再次感谢chuhaiou哥哥的好代码，解决了中英文字符串长度问题。

user_nmyyc 发表于 2016-4-12 17:28:27

谢谢wjhere兄的好代码，帮解决了格式不变的大难题！！文字与下划线分离可能双比较困难吧！

qw1888 发表于 2016-4-12 17:29:23

为了版本之间的兼容性，最好不要使用PasteSpecial（在2007版中会出现问题，在07版本里以默认参数粘贴得到的结果不是文本框而是图片...），使用paste方法则可以避免上述问题

kbiabtqb8 发表于 2016-4-12 17:29:24

原来没有想到PasteSpecial，不知道什么，直接使用paste，在程序中设置颜色无效，才出此下策。

imissa 发表于 2016-4-12 17:30:54

按照YOUXI01 兄的说法我试了一下，能成功，没有出现设置颜色无效。在03中无论是用Paste还是用PasteSpecial都没有任何影响！

suolanjia 发表于 2016-4-12 17:32:02

好象YOUXI01 兄的横线不是用下划线的，也可能还是用shift加-所得的_。我想是不是他取字符串长度的方式与我们的不同啊！

myselfjo 发表于 2016-4-12 17:32:24

2011.2.19
真正领会chuhaiou兄的方法，挖空填空效果达到正确的显示。
插入本地媒体功能，封装了linchangh兄提供laose兄美化的播放器

user_itknl 发表于 2016-4-12 17:40:16

挖出填空还没有达到最理想的效果！试试只输入相当多个英文大写字母，横线就不够长，只输入相当多个汉字横线又太长哟。
软件完善得很不错，但有相当多的代码暴露在外，这样用DLL封装好象意义不大哟！
页: 1 2 3 4 5 [6] 7 8
查看完整版本: 新年新作 ppt语文课件助手