什么都分享
以及,记录自己的故事

原创Office教程:PPT播放时自动加载网页(内嵌)

DEMO

步骤

1,首先,确认你的PPT已经启用了宏命令,并且这个PPT文件的格式是pptm

2,在PPT中插入控件,选择其他控件,再选择WebBrower。这个WebBrower的默认名称是WebBrower1

3,双击这个WebBrower控件,进入代码编辑界面,完全删除里面的现存代码(除非你有其它功能性代码!),然后添加以下代码:

Sub OnSlideShowPageChange(ByVal fa As SlideShowWindow)
 If fa.View.CurrentShowPosition = 2 Then
 WebBrowser1.Navigate2 ("https://www.liujunyang.com")
 End If
End Sub

代码解释:当PPT播放到这个页面时(代码中为2,也就是这个WebBrower控件所在的页面),会加载url,而url地址就是代码中的https://www.liujunyang.com

上面这样的代码是可以兼容循环播放的,我经过了多次修改,最终还是觉得这样写泛用性更高。

赞(0) 打赏
本文遵守创作共享 BY-NC-ND 4.0协议,转载前请先联系作者。绯末博客 » 原创Office教程:PPT播放时自动加载网页(内嵌)
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏