• 上帝的名字叫浏览器

    日期:2009-03-23 | 分类:VBA

    版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明
    http://www.blogbus.com/pptdesign-logs/36904640.html

    看过很多用PPT做的网站推广方案,大多会用网站界面截图来介绍网站,再高级一点的,用动画来演示界面,当时就想,为什么不直接在PPT上动态的显示网页呢?所谓百闻不如一见,百见不如一操,嘿!这个操是操作的操而已。

    基础知识
    PPT中自带有浏览器的控件,叫做“Microsoft Web 浏览器”

    在PPT中插入浏览器也相当的简单,直接将浏览器控件拖到PPT中,调整好大小就可以了。

    控件都有属性,所谓属性,就是比如:姓名:大乘起信;性别:男;头发长短:长......有些属性可以改变,比如我昨天就把头发剃得象刚放出来,那么头发长短的属性就改成了:极短。而有些属性一般是不可以改,比如性别,除非......

    查看和修改属性的方法:选中控件,鼠标右键--属性

    浏览器如何解析网页地址?抱歉,在这个web控件的属性中,没有直接输入地址的(我用的是2003,2007不知道),要想控件能帮你打开网页,还需要执行一个语句:

    WebBrowserName.Navigate "pptdesign.blogbus.com", 0, 0, 0, 0

    其中WebBrowserName可以改成你自己定义的控件名称,引号内的地址当然也可以改成你自己的。这个语句可加在一个执行动作中,比如点击按钮就执行这个语句,那么浏览器就会帮你打开网页了。假设我们在PPT上创建一个按钮,它的名字叫”GoBtn",创建一个浏览器控件,它的名称为“WebBro”,然后在按钮的单击事件上写上上面的语句,(怎样加代码?选中控件,鼠标右键--查看代码)整个代码非常简单,应该是这样的:

    Private Sub GoBtn_Click()
    WebBro.Navigate "pptdesign.blogbus.com", 0, 0, 0, 0
    End Sub

    放映PPT,单击按钮,浏览器成功打开网页。

    上面这段文字写得好累,我真的很不喜欢写这样教程性的东西,这篇文章的目的也不是说怎样在PPT中插入浏览器控件,而是这个浏览器控件的实际应用探讨,好了,我们步入正题吧。

    进阶篇
    显然,上面在基础知识中介绍的方法有很大的局限性,网页地址是固定的,如果要更改网页难道在放映的时候还要停下来,然后转到vb编辑器中去修改代码?我们稍微修改一下,在PPT中增加一个文本框的控件,并把这个文本框的名字属性设为“”WebAdd",其他不变,整个界面好像这样:

    然后将按钮单击事件的代码稍微改一下:


    Private Sub GoBtn_Click()
    WebBro.Navigate Trim(WebAdd.Text), 0, 0, 0, 0
    End Sub


    只是将原来固定的网页地址改成读取文本框中我们自己输入的网页地址而已,这样就灵活很多了。关于web浏览器的控件使用就介绍到这里了,有兴趣的可以继续扩展。

    ===============================================================

    这样一个浏览器控件的功能我们有什么用呢?回到我们的题目,上帝的名字叫浏览器,或许你不相信,但事实上没有了浏览器我们能做什么?我们的资源管理器其实也是基于浏览器的,可以说浏览器掌控着一切,在web时代更是如此。在PPT中,我们试着举一个例子:浏览器不但能打开网页,而且可以打开本地文件!

    在PPT中播放另一个PPT:只要在进阶篇中提到的文本框中输入本地的另一个PPT文档地址

    大凡你可以想到的,浏览器都可以帮你打开,word文档,Excel,直接调用flash,.......只要是浏览器支持的类型,我想这个对于老师们做课件将会非常方便并且资源会丰富很多。

    总结:
    浏览器控件可以动态的直接打开网页:这丰富了我们的表现手段
    浏览器控件可以直接打开本地文件:这为我们增加各种应用提供了无穷的想象空间。

    自己动手做:
    如果将文本框输入地址改成下拉列表地址会怎么样?

    欢迎到我们的google论坛中来讨论!

    无实例无真相

    分享到:

    历史上的今天:

    出台 2010-03-23

    评论

  • 思路~~
  • 上帝=,=浏览器。。。
  • 几天前,上帝让我在谷歌哪儿找到这篇文章
    现在,我有无意中找到您的文章,连续查看了好几十分钟后,回到了这篇“上帝的名字叫浏览器”。作为今天的结束,特此书写“到此一游”。
    对了,题目那句话,是谁说的?
  • 我的问题是这样的:第一次设置好,可以;关闭后重新打开,不行了。咋解决啊老大
  • 我实验没有成功~~

    下载了文件,改了下安全设置,点击按钮,没有成功,不知道问题出在哪里,谁指点我下吧?
  • 博主这样的方法我也找到过了。
    我现在就是比较郁闷的是两点。
    1、好像这个WEB控件不支持相对地址的。
    2、如何能做到打开SLIDE之后就直接显示网页呢?
    如果大乘大大有好的办法的话希望能不吝赐教。
    先谢谢大乘大大了。。
    回复放浪形骸说:
    原则上PPT不支持自动运行宏,不过好在还有一个OnSlideShowPageChange宏可以用,如果想直接打开页面就显示需要的网页,代码如下:<br />
    <br />
    Sub OnSlideShowPageChange()<br />
    If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then<br />
    WebBrowser1.Navigate Trim(pptdesign.blogbus.com), 0, 0, 0, 0<br />
    End If<br />
    End Sub<br />
    <br />
    其中”CurrentShowPosition = 1“的数字可替代为你需要显示网页的slide页码编号,网址自然可以替换为你需要打开的地址。<br />
    希望对你有帮助。
    2009-05-09 01:30:58
  • 建立浏览器控件后 输入了那一行代码 可是PPT演示的时候还是没法显示网页 不知是为什么 WebBrowserName.Navigate "pptdesign.blogbus.com", 0, 0, 0, 0 应当插入在什么位置呢?
  • 呵呵 我也来学学
  • 正在学习。。我有些问题。。本人是菜鸟。所以希望楼主或好心人帮忙一下。。
    怎样创建一个浏览器控件?怎样增加一个文本框控件?
    期待回答。。非常感谢!
  • 有点,复杂了。。。。
    有点。。。。。
  • VBA 用的不多在慢慢学习中,谢谢了……
    不过我想问楼主一个问题,为什么我内嵌FLASH的时候找不到自定义这个栏目?
  • 真是白见不如一操啊~
  • 非常有趣的用法,学习了 :)