将 Web 图像插入 Excel 单元格

Question

我是 Excel VBA 的新手，因此我非常感谢任何帮助。我在网上找到了以下代码，可以将图像放入电子表格。原样的代码可以获取图像并将该图像放在活动表上，但我需要将该图像放在单元格中。那可能吗？下面是我目前拥有的宏。

所以 A 列将是 getImage2 将使用的值，而 B 列理想情况下应该有各自的图像。

Public Function getImage2(ByVal name As String) As String

  Dim imgURL As String

  Dim XMLhttp: Set XMLhttp = CreateObject("MSXML2.ServerXMLHTTP")

  XMLhttp.setTimeouts 1000, 1000, 1000, 1000

  imgURL = "http://cactus.nci.nih.gov/chemical/structure/" + name + "/image"


  XMLhttp.Open "GET", imgURL, False

  XMLhttp.send

  If XMLhttp.Status = 200 Then

   'It exists so get the image

    ActiveSheet.Shapes.AddPicture imgURL, msoFalse, msoTrue, 100, 100, 250, 250

  Else

    '
  End If

End Function

Answer 1

给你：

Public Function getImage2(ByVal name As String) As String

  Dim imgURL As String
  Dim x&, y&, wdth&, hght& ' using "&" is the same as "As Long"
  Dim cellFunctionRunsOn As Range
  Dim img

  Set cellFunctionRunsOn = Columns(1).Find(what:=name)

  Dim XMLhttp: Set XMLhttp = CreateObject("MSXML2.ServerXMLHTTP")

  XMLhttp.setTimeouts 1000, 1000, 1000, 1000

  imgURL = "http://cactus.nci.nih.gov/chemical/structure/" + name + "/image"


  XMLhttp.Open "GET", imgURL, False

  XMLhttp.send

  If XMLhttp.Status = 200 Then

   'It exists so get the image
    x = Range(cellFunctionRunsOn.Offset(0, 1).Address).Left
    y = Range(cellFunctionRunsOn.Offset(0, 1).Address).Top
    wdth = Range(cellFunctionRunsOn.Offset(0, 1).Address).width
    hght = Range(cellFunctionRunsOn.Offset(0, 1).Address).height

    Set img = ActiveSheet.Shapes.AddPicture(Filename:=imgURL, linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=x, Top:=y, _
        width:=wdth, height:=hght)
    img.Placement = xlMoveAndSize

  Else

  End If

End Function

这将获取您的图像，然后将其“放入”单元格中。

注意：正如@TimWilliams 所提到的，从技术上讲，您不能将其放入单元格中。上面所做的是，它获取您的 Image 并将其调整为与单元格相同的高度和宽度。因此，如果您想要更大的图像，则将单元格尺寸更大。