新年新作 ppt语文课件助手

linchangh · 发表于 2011-2-19 11:40

原帖由 wjhere 于 2011-2-18 21:29 发表
2011.2.9
改进笔顺动画插入方式，删除修复动画播放按钮（不再需要）
2011.2.18
根据论坛chuhaiou 兄建议，修正了挖出填空的效果，力求横线美观，同时使用复制方法，不丢失格式。
对文本动画功能进行一些调整。
...

插入本地媒体好像有问题

chuhaiou · 发表于 2011-2-19 11:40

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

[ 本帖最后由 chuhaiou 于 2011-2-19 13:22 编辑 ]

wjhere · 发表于 2011-2-19 14:26

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哥哥的好代码，解决了中英文字符串长度问题。

chuhaiou · 发表于 2011-2-19 15:02

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

[ 本帖最后由 chuhaiou 于 2011-2-19 15:03 编辑 ]

YOUXI01 · 发表于 2011-2-19 15:47

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

wjhere · 发表于 2011-2-19 15:52

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

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

chuhaiou · 发表于 2011-2-19 16:28

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

chuhaiou · 发表于 2011-2-19 16:34

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

wjhere · 发表于 2011-2-20 07:38

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

chuhaiou · 发表于 2011-2-20 09:56

挖出填空还没有达到最理想的效果！试试只输入相当多个英文大写字母，横线就不够长，只输入相当多个汉字横线又太长哟。
软件完善得很不错，但有相当多的代码暴露在外，这样用DLL封装好象意义不大哟！

[ 本帖最后由 chuhaiou 于 2011-2-20 15:43 编辑 ]

		自动登录	找回密码
密码			免费注册

[原创] 新年新作 ppt语文课件助手

回复 50楼 wjhere 的帖子

回复 53楼 wjhere 的帖子

回复 53楼 wjhere 的帖子

回复 56楼 wjhere 的帖子

回复 53楼 wjhere 的帖子

回复 59楼 wjhere 的帖子