PowerPoint VBA如何自动触发点击事件

richermore

求助各位大神：

   小弟想在PPT中插入网页，网页插入是成功了， 但是必须要使用一个Commandbutton 按钮来点击打开， 求助如何在PPT 播放跳转到下一页是自动触发，不需要点击command 按钮。

  插入网页命令：

  Private Sub CommandButton1_Click()
WebBrowser1.Navigate ("http://www.baidu.com")
End Sub
——————————————————————————————————————————————————————————————
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

AS850629754

参考这个
http://blog.sina.com.cn/s/blog_6cfa859a0100nbs7.html

richermore

AS850629754 发表于 2019-9-7 15:28
参考这个
http://blog.sina.com.cn/s/blog_6cfa859a0100nbs7.html

谢谢！

但是现在还有一个不懂的， 如何使commandbutton 自动触发点击？


Sub OnSlideShowPageChange()

   If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then

      MsgBox "I love you"  也就说这里的自动点击按钮怎么写？

   End If

End Sub

AS850629754

richermore 发表于 2019-9-11 07:36
谢谢！

但是现在还有一个不懂的， 如何使commandbutton 自动触发点击？

你直接把按钮里的代码粘贴进去吧

richermore

AS850629754 发表于 2019-9-11 15:12
你直接把按钮里的代码粘贴进去吧

, 已经实现， 原先我一直在纠结Command按钮， 原来Command 按钮是多余的。 非常感谢