通过VBA（Excel）从网页打开图片无需Internet Explorer

Question

我使用代码使用Internet Explorer从网页打开图片。现在我想在没有Internet Explorer的情况下做到这一点在油漆或窗口照片查看器中。我使用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