在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代码，去掉边框。

难骑

原来还可以这样子呀

Mr.cai

奇

读铁系缘分，顶铁系友情

晃晃

精典，学习了！

tc

无聊时可以刷屏幕 灌水 也可以试试 帖子的标题究竟可以写多长

tc

响应天帅号召，顶

菜刀吻电线

俺是新人,这厢有礼了!

tc

不错不错，收藏了