纳金网

标题: 在powerpoint里加载wirefusion [打印本页]

作者: 晃晃 时间: 2011-8-8 08:44
标题: 在powerpoint里加载wirefusion
1.首先要打开控件工具箱

2.添加web浏览器控件

3.布局web浏览器位置

4.编写VB代码

横线上面的代码如下：

Private Sub CommandButton1_Click()

Dim a As PowerPoint.Application

Dim b As String

Dim filePath As String

Set a = PowerPoint.ActivePresentation.Application

b = a.ActivePresentation.Path

b = Replace(b, "", "/")

filePath = "file:///" & b & "/123/7373.html"

'MsgBox a.ActivePresentation.path

'MsgBox filePath

WebBrowser1.Navigate (filePath)

End Sub

横线下面的代码如下：

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

5.添加按钮

6.编辑按钮属性，命名按钮

7.保存、运行。美化web浏览器，改写html代码，去掉边框。

作者: 难骑 时间: 2011-8-17 17:49
提示: 作者被禁止或删除内容自动屏蔽

作者: Mr.cai 时间: 2011-8-18 14:08

作者: 奇 时间: 2012-3-1 23:31
读铁系缘分，顶铁系友情

作者: 晃晃 时间: 2012-3-13 23:24
精典，学习了！

作者: tc 时间: 2012-4-13 23:25
无聊时可以刷屏幕灌水也可以试试帖子的标题究竟可以写多长

作者: tc 时间: 2012-8-28 23:39
响应天帅号召，顶

作者: 菜刀吻电线 时间: 2012-11-29 23:21
俺是新人,这厢有礼了!

作者: tc 时间: 2013-3-15 23:18
不错不错，收藏了

欢迎光临纳金网 (http://go.narkii.com/club/)