如何用vba设置ppt幻灯片的切换效果？

您所在的位置：网站首页 › 设置幻灯片切换效果默认用于所有幻灯片 › 如何用vba设置ppt幻灯片的切换效果？

如何用vba设置ppt幻灯片的切换效果？

2024-07-10 03:25| 来源: 网络整理| 查看: 265

如何用vba设置ppt幻灯片的切换效果？ 2019年10月5日作者：水星Excel 4,936 次浏览暂无评论

在vba中，SlideShowTransition对象代表了幻灯片的切换效果。

通过SlideShowTransition对象可以设置幻灯片的切换效果、换片方式、自动换片时间、持续时间、换片声音等。

各种切换效果见这里。

以下vba代码对当前PPT中的第二个幻灯片的切换方式进行设置：

Sub QQ1722187970() Dim oSP As Shape Dim oPresentation As PowerPoint.Presentation Set oPresentation = PowerPoint.ActivePresentation Dim oSlide As Slide Dim oSST As PowerPoint.SlideShowTransition With oPresentation Set oSlide = .Slides(2) With oSlide Set oSST = .SlideShowTransition With oSST '不用单击换片 .AdvanceOnClick = msoFalse '设置自动换片 .AdvanceOnTime = msoTrue '设置自动换片时间，以秒为单位 .AdvanceTime = 5 '设置切换的速度 .Speed = ppTransitionSpeedMedium '设置切换的持续时间 .Duration = 3 '设置切换效果 .EntryEffect = ppEffectBoxDown End With End With End With End Sub

以下代码将所有幻灯片的换片方式都设置为自动间隔1秒换片：

Sub QQ1722187970() Dim oSP As Shape Dim oPresentation As PowerPoint.Presentation Set oPresentation = PowerPoint.ActivePresentation Dim oSlide As Slide Dim oSST As PowerPoint.SlideShowTransition With oPresentation For Each oSlide In .Slides With oSlide Set oSST = .SlideShowTransition With oSST '不用单击换片 .AdvanceOnClick = msoFalse '设置自动换片 .AdvanceOnTime = msoTrue '设置自动换片时间，以秒为单位 .AdvanceTime = 1 '设置切换的速度 .Speed = ppTransitionSpeedMedium '设置切换的持续时间 .Duration = 3 '设置切换效果 .EntryEffect = ppEffectBoxDown End With End With Next .SlideShowSettings.Run End With End Sub

如果要批量取消所有幻灯片的切换效果，可以通过设置EntryEffect属性为ppEffectNone（0）即可。

其它相关文章推荐：如何用vba操作ppt开始幻灯片反映模式，相当于按下F5?如何用vba给ppt幻灯片插入本地电脑上的图片？如何用vba操作ppt演示文稿？如何用vba批量设置或删除ppt中的组合图形？如何用vba把ppt文档发布转化为pdf格式文件？如何用vba操作ppt的幻灯片母版？分类 : PPT VBA , VBA 标签 : ppt 切换 , ppt 自动换片 , SlideShowTransition , 切换效果

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

如何用vba设置ppt幻灯片的切换效果？

如何用vba设置ppt幻灯片的切换效果？

今日新闻

推荐新闻