如何用VBA改变ppt其他slide中的值

user_omfvi

请问高手，如何才能实现在当前ppt的播放页上按一下按钮，其他页的内容发生变化？不好意思，这个问题在PPT论坛问，没人回答，所以来这里求救了。
具体请见附件!
Presentation2.zip (17.4 KB, 下载次数: 26)

2016-4-12 13:24 上传

点击文件名下载附件

user_bhjqnldz

Private Sub CommandButton1_Click()
    Set Wb = ActivePresentation.Slides(2).Shapes(1).OLEFormat.Object
    Set Sh = Wb.worksheets("sheet1")
    Sh.Range("a1") = 2
End Sub

user_ynchy

果然可以，太感谢了！

z464594695

试过不行啊，怎么回事呢？