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

我使用代码使用Internet Explorer从网页打开图片。现在我想在没有Internet Explorer的情况下做到这一点在油漆或窗口照片查看器中。我使用IE发送了我的VBA代码。你可以帮帮我吗？谢谢。通过VBA（Excel）从网页打开图片无需Internet Explorer

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

来源

2015-02-23 englisholom

你可以用一个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

来源

2015-02-23 16:57:41

嗨，感谢您的帮助，但现在我有问题，打印。某些按钮在Windows图片和传真查看器中不活动。我只能打开文件和打开的按钮。所以我无法打印图片。你能帮我吗？ – englisholom 2015-02-24 16:41:48

请**停止**试图编辑我的答案，以包含您的评论和截图。无论如何，你原来的问题是“我想在MS Paint或Photo Viewer中打开图片”。这是否不能解决这个问题？ – 2015-02-24 16:49:40

如果这解决了原来的问题，请考虑将答案标记为已接受。如果你现在有*新*和不同的问题，我会鼓励你把它作为一个新问题。当我测试这段代码时，所有的按钮都被启用了，所以我不确定我的后续能力有多大，但是很可能有其他人可以帮助你:) – 2015-02-24 16:50:36

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

回答

相关问题