Shell VBA.Environ("windir") & "\system32\mspaint.exe " & "c:\123.jpg", vbNormalFocus 用画图板打开的!

首先感谢楼上！
我的方法是直接用了RUN，不去考虑打开方式。

分享一下吧！

很简单啊

Private Sub Command1_Click()
Dim obshell
Set obshell = CreateObject("wscript.shell")

obshell.Run "D:\temp\123.jpg" '这里写完整路径就好了
End Sub

简单一点：
Dim ss As String
ss = "e:\zyg-06.jpg"'需要打开的图片的位置，可以是各种有效格式的文件
Shell "rundll32.exe shimgvw.dll,ImageView_Fullscreen " & ss '利用Windows图片和传真查看器打开指定的图片文件
说明：从本人正在使用的程序中复制的，在XP和VB6.0下调试通过。

[ 本帖最后由 yutao2003 于 2012-3-10 14:52 编辑 ]