相信插入超级链接的方式大家都会,但如何把一个网页嵌入到ppt中呢?这里就需要用控件了:
步骤如下:
点击“视图”-“工具栏”-“控件工具箱”,点按“控件工具箱”右下角最后一个控件,在弹出的列表中找到“microsoft web 浏览器”,然后用鼠标拖出一个合适大小的矩形窗口,这就是内置的IE浏览器的显示窗口。
接下来点击“控件工具箱”第3行第一个图标添加一个命令按钮,双击这个按钮,输入下面的内容(红色部分):
Private Sub CommandButton1_Click()
WebBrowser1.Navigate "http:www.126.com"End Sub
其中
http://www.126.com 是你要浏览的网址,如果是本地网址,可以这样写:
WebBrowser1.Navigate "d:\1.htm"
可这样写有个问题:如果这个ppt文件放到了其他人的电脑上,那么就不能找到这个“1.htm”文件了,经过研究可以这样解决:
WebBrowser1.Navigate CurDir() & "\1.htm"
其中CurDir()函数的作用是获取当前ppt文件的文件夹名,后面就是你要浏览的文件名了。输完后关闭vb窗口。
为了美观,我们可以把命令按钮上的文字改一下,方法如下:
先选择命令按钮,然后点击“控件工具箱”上的第一个图标(“属性”),在弹出的列表中找到第6行“Caption”,把后面默认的“CommandButton1”修改为你想要的文字(例如“浏览”)即可。
最后提醒一下:一定要把你的ppt文件和你要浏览的文件放在一起哦。