在没有 Internet Explorer 的情况下通过 VBA ( Excel) 从 Web 打开图片答案

【问题标题】：Open picture via VBA ( Excel) from web without Internet Explorer在没有 Internet Explorer 的情况下通过 VBA ( Excel) 从 Web 打开图片
【发布时间】：2015-02-24 06:12:36
【问题描述】：

我使用代码通过 Internet Explorer 从 Web 打开图片。现在我想在没有 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

【问题讨论】：

标签： vba excel

【解决方案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

【讨论】：

您好，感谢您的帮助，但现在我遇到了打印问题。某些按钮在 Windows 图片和传真查看器中无效。我只能打开那些按钮文件和打开。所以我无法打印图片。你能帮帮我吗？
请停止尝试编辑我的答案以包括您的 cmets 和屏幕截图。无论如何，您最初的问题是“我想在 MS Paint 或 Photo Viewer 中打开图片”。这不能解决这个问题吗？
如果这已经解决了原始问题，请考虑将答案标记为已接受。如果您现在有一个新和不同的问题，我鼓励您将其作为一个新问题提出。当我测试这段代码时，所有按钮都已启用，所以我不确定我可以为您的后续工作提供多少帮助，但很有可能其他人可以帮助您:)
抱歉编辑。我原来的问题解决了，但出现了一个新问题。我尝试自己解决。谢谢。
我鼓励你提出一个新的问题，这样整个论坛都能看到它并希望能帮助你。并考虑接受这个答案，以表明它已经解决了问题。