我做了个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


吐血分享,记录自己备用。