关于PPT中插入网页的问题，以前没有提到的。

sophialxr 发表于: 2009-6-29 20:54 来源: 扑奔PPT网

正在制作一个PPT文件，是用在触摸屏上的，其中需要引用一个网站的全部内容，所以要在PPT中插入网页，用WEBBROSER的方法我会，不过只能用命令按钮的方式才可以打开网页，我查了一下本站关于在PPT中插入网页的内容，全部都需要有“命令按钮”，必须要点击这个“命令按钮”才可打开网页。

想问一下，有没有什么方法，可以免掉这个“命令按钮”，打开这张幻灯片的时候，可以直接调用网页，我研究了一下WEBBROSER控件使用方法和技巧，也没有找到解决办法，希望高手能帮我指点一下，把这个“命令按钮”给去掉。

谢谢！

[ 本帖最后由 sophialxr 于 2009-6-29 21:22 编辑 ]

大家对关于PPT中插入网页的问题，以前没有提到的。的评论

sophialxr 发表于 2009-6-29 21:01:50: 刚看到有人提到用OnSlideShowPageChange宏的方法，
代码如下： 
 
Sub OnSlideShowPageChange() 
If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then 
WebBrowser1.Navigate Trim(pptdesign.blogbus.com), 0, 0, 0, 0 
End If 
End Sub 
 

请问高手这个宠如何调用，我怎么找不到？
sophialxr 发表于 2009-6-29 21:22:14: 俺自己解决了，确实是用的OnSlideShowPageChange宏
sophialxr 发表于 2009-6-29 21:33:29: 这里真是要多谢大乘了，就是一句没有看懂，测试了一下，也没有什么不同，

”CurrentShowPosition = 1“的数字可替代为你需要显示网页的slide页码编号，网址自然可以替换为你需要打开的地址

请问这句话是什么意思？
龙族发表于 2009-6-30 01:40:16: 楼主是高人,能介绍如何用吗,上面的方法,代码应该是:
Sub OnSlideShowPageChange()
If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then
WebBrowser1.Navigate Trim(pptdesign.blogbus.com), 0, 0, 0, 0
End If
End Sub
这样手吧,而不是每行都有 

[ 本帖最后由龙族于 2009-6-30 01:42 编辑 ]
sophialxr 发表于 2009-6-30 16:45:42: 五楼说得对,不过俺一时偷懒,没有删掉 .

还是先用控件工具箱,添加一个Microsoft Web Browser,然后打开VB编辑,直接添加上上段代码,然后把第三行
WebBrowser1.Navigate Trim(pptdesign.blogbus.com), 0, 0, 0, 0

改为

WebBrowser1.Navigate2 "XXXX.XXXX.com"

就可以了.

俺也不是什么高手,刚刚学会用一点PPT皮毛,还请这里的高人多指点一下.
jack0421 发表于 2009-9-06 08:17:42: ppt插网页有很多方法。

Snap2.jpg

Snap3.jpg

Snap4.jpg

Snap5.jpg

Snap6.jpg

264 KB, 下载次数: 73)
laose 发表于 2009-9-06 10:22:45: 自动浏览WEB

45.8 KB, 下载次数: 117)
bgs315315 发表于 2009-10-12 19:45:57: QUOTE:
原帖由 laose 于 2009-9-6 10:22 发表
自动浏览WEB
为什么附件在PPT2003中无法正常显示？
lbwrong 发表于 2009-10-13 16:00:38: 想求各位大侠帮解决一下如果使插入的网页不显示边框呀
tangqingfu 发表于 2011-5-19 14:46:12: 谢谢二位版主的分享！