我做了个PPT,在大屏上面展示,里面有个数据在播放的时候,自动更新
当前页面名称未知,但是每个页面都有相应名字的label标签,
不管显示哪个页面,就更改显示哪个页面相应的标签caption值。
关于VBA操作PPT的内容网上比较少,原EXCEL VBA的操作方法完全不管用,查了好久,查资料快要吐血的时候,终于东拼西凑,最终实现所需功能。
1、获取当前播放PPT当前页面的索引号
SlideShowWindows(1).View.Slide.SlideIndex
2、获取当前展示页面
ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
3、修改当前页面label 名称为“aji”的caption值
With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
.Shapes("aji").OLEFormat.Object.Caption = "xxxx"
4、关于播放当前页面触发程序
Sub OnSlideShowPageChange()
你的程序
End Sub
吐血分享,记录自己备用。