想加点图案欢乐海岸是哪位大佬佬帮忙设计一下

来源：蜘蛛抓取(WebSpider) 时间：2018-03-27 15:34 标签： 哪位大佬有九色腾
51被浏览48,462分享邀请回答9832 条评论分享收藏感谢收起拒绝访问 | www.cc8.cc | 百度云加速
请打开cookies.
此网站 (www.cc8.cc) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(43b3-ua98).
重新安装浏览器，或使用别的浏览器查看: 3181|回复: 4
求各位大佬帮忙写一个批量添加简单动画的VBA（有图，有文档）
阅读权限20
在线时间 小时
本帖最后由
11:04 编辑
求助.png (403.65 KB, 下载次数: 10)
16:13 上传
如图，希望给带有【正确答案】和【答案解析】的这两段文字加上淡出的动画，目前有600多页ppt要加这种动画，未来还会有很多，求各位大佬们帮忙写一个VBA，谢谢了。
(39.45 KB, 下载次数: 15)
16:17 上传
点击文件名下载附件
阅读权限20
在线时间 小时
& & & & & & & &
没找到方法把文本框中的特定段落加上效果，换了另外一种思路，先把整个文本框设置“渐入”效果，再把不符合条件的效果从时间线的主序列中删掉。
注意，如果页面上已经存在的自定义动画会被删除。
Sub 多个页面插入文本动画()
& & Dim sp As Shape, sld As Slide, teff As Effect, i As Integer, st As String
& & '每个幻灯片循环一次
& & For Each sld In ActivePresentation.Slides
& && &&&'每个图形循环一次
& && &&&For Each sp In sld.Shapes
& && && && &If sp.Type = msoShapeCube Or sp.Type = msoTextBox Then '如果是占位框或文本框
& && && && && & If InStr(1, sp.AlternativeText, &【正确答案】&, vbTextCompare) & 0 Then '如果包含文本“【正确答案】”
& && && && && && &&&
& && && && && && &&&'整个文本框加入效果，实际会出现一系列动画
& && && && && && &&&sld.TimeLine.MainSequence.AddEffect sp, msoAnimEffectFade, msoAnimateTextByFirstLevel, msoAnimTriggerOnPageClick
& && && && && && &&&'msoAnimEffectFade 加入“渐入”效果
& && && && && && &&&'msoAnimateTextByFirstLevel 按照第一级段落处理
& && && && && && &&&'msoAnimTriggerOnPageClick 点击幻灯片触发效果
& && && && && && &&&
& && && && && && &&&'从后向前处理各动画，如果不包含特定文字则删除效果
& && && && && && &&&For i = sld.TimeLine.MainSequence.Count To 1 Step -1
& && && && && && && && &Set teff = sld.TimeLine.MainSequence(i)
& && && && && && && && &st = teff.DisplayName& &'DisplayName是效果的显示名称，这里实际就是段落文字
& && && && && && && && &If InStr(1, st, &【正确答案】&, vbTextCompare) & 0 Or InStr(1, st, &【答案解析】&, vbTextCompare) & 0 Then
& && && && && && && && && & teff.Timing.Duration = 0.5& & '把效果的持续时间设为0.5秒（非常快）,也可设为1秒（快速）
& && && && && && && && &Else
& && && && && && && && && & teff.Delete '删除效果
& && && && && && && && &End If
& && && && && && &&&Next
& && && && && & End If
& && && && &End If
& && &&&Next
(43.18 KB, 下载次数: 158)
12:56 上传
点击文件名下载附件
太强大了，感激之情无以言表！！！
阅读权限20
在线时间 小时
csnAlex 发表于
没找到方法把文本框中的特定段落加上效果，换了另外一种思路，先把整个文本框设置“渐入”效果，再把不符合 ...
非常感谢，帮大忙了
阅读权限30
在线时间 小时
没找到方法把文本框中的特定段落加上效果，换了另外一种思路，先把整个文本框设置“渐入”效果，再把不符合 ...
太强大了,能不能批量为多个本文加上链接?
阅读权限20
在线时间 小时
没找到方法把文本框中的特定段落加上效果，换了另外一种思路，先把整个文本框设置“渐入”效果，再把不符合 ...
不知道大家如何测试的？我试过，根本没效果，因为原本那“答案”就设计好动画效果，如果先把效果去掉，F8
运行无效，再加入Sub OnSlideShowPageChange()&&中也无效！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 哪位大佬有九色腾 的文章

 

随机推荐