|
|
当我一看到你的贴子的时候，真是有点惊讶，你真是别出心裁，佩服！真心赞叹你的大胆。
下面帮你来解决问题吧！
用建立超链接的方法，当然会调用IE，因为超链接原本就属于IE技术规范。好得还有VBA啊，
它能帮助我们轻松解决你的问题。
把代码附上：
Sub exebmp(n As Integer)
Dim paths As String
paths = PowerPoint.ActivePresentation.Path
Select Case n
Case 1
Shell rundll32.exe C:WINDOWSsystem32shimgvw.dll,ImageView_Fullscreen & paths & img1.jpg
Case 2
Shell rundll32.exe C:WINDOWSsystem32shimgvw.dll,ImageView_Fullscreen & paths & img2.jpg
Case 3
Shell rundll32.exe C:WINDOWSsystem32shimgvw.dll,ImageView_Fullscreen & paths & img3.jpg
Case 4
Shell rundll32.exe C:WINDOWSsystem32shimgvw.dll,ImageView_Fullscreen & paths & img4.jpg
End Select
End Sub
Sub goto1()
Call exebmp(1)
End Sub
Sub goto2()
Call exebmp(2)
End Sub
Sub goto3()
Call exebmp(3)
End Sub
Sub goto4()
Call exebmp(4)
End Sub
示例文件如下：
别忘了把你的宏的安全性设置为“中”或“低”
一定要把文件解压缩
|
|
