求助：如何实现在ppt 里超链外部图片时用图片浏览器打开？？急

bjs0072004 发表于: 2008-5-27 21:24 来源: 扑奔PPT网

bjs0072004 发表于 2008-5-28 16:09:01

没人知道吗？？看来比较难了

皇城根下 发表于 2008-5-28 16:20:31

我用xp系统.制作图片连接时,默认的就是"windows图片查看器"呀!!

无极 发表于 2008-5-29 11:36:04

当我一看到你的贴子的时候，真是有点惊讶，你真是别出心裁，佩服！真心赞叹你的大胆。
下面帮你来解决问题吧！
用建立超链接的方法，当然会调用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:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen " & paths & "\img\1.jpg"
    Case 2
        Shell "rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen " & paths & "\img\2.jpg"
    Case 3
        Shell "rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen " & paths & "\img\3.jpg"
    Case 4
        Shell "rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen " & paths & "\img\4.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

示例文件如下：
别忘了把你的宏的安全性设置为“中”或“低”
一定要把文件解压缩

[ 本帖最后由 无极 于 2008-5-29 11:47 编辑 ]

325 KB, 下载次数: 63)

图片1.png

amwyq 发表于 2008-5-29 13:39:31

两个字：高


:$

seo4587 发表于 2008-5-29 14:32:31

赞美4楼的，
不过好像可以用圆环套圆环的方法，
就是插入PPT演示文稿的方法
论坛里面有教程，自己找吧，今天我发懒了！不想贴图！

bjs0072004 发表于 2008-5-30 11:56:57

不好意思 啊。我昨天用宏弄了弄，可是不太会啊。我对编程不是很懂，你给我的代码怎么用啊？你的附件我看了，很好。。呵呵。能不能再具体说说怎么弄!!

bjs0072004 发表于 2008-5-30 12:07:27

回复四楼
不好意思 啊。我昨天用宏弄了弄，可是不太会啊。我对编程不是很懂，你给我的代码怎么用啊？你的附件我看了，很好。。呵呵。能不能再具体说说怎么弄!!