不使用Internet Explorer，通过VBA（Excel）打开图片

我使用代码从Internet使用Internet Explorer打开图片。 现在我想在没有Internet Explorer的情况下，例如在绘画或者Windows照片浏览器中。 我使用IE发送了我的VBA代码。 你可以帮帮我吗 ？ 谢谢。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Path As String, s As String Path = "http://08.15.40.22:0603/tralala/get_doc.pl?doc_id=" If Not Intersect(Target, Range("H7:H30")) Is Nothing _ And Target.Count = 1 Then If IsNumeric(Target) And Len(Target) > 0 Then s = Left(Target, Len(Target) - 2) ActiveWorkbook.FollowHyperlink Path & s End If End If End Sub 

Answer 1

你可以用一个Shell命令来做到这一点：

 Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & Path & s 

这将以图像的方式全屏打开Windows图片和传真查看器。

或者在MSPaint：

 Shell Chr(34) & "C:\Windows\System32\mspaint.exe" & Chr(34) & " " & Chr(34) & Path & s & Chr(34), 1