Excel VBA:显示来自其他工作表URL的图像

Excel VBA:显示来自其他工作表URL的图像,vba,excel,Vba,Excel,我需要一些帮助 我一直在搜索excel中的一个代码,该代码允许我以图像的形式显示和URL。我已经找到了一些好的提示和代码,但我无法得到我想要的 图像URL位于表1 B15中,我在表2 B/C-22至36的合并单元格中显示图像。不知道是否可以在合并的单元格中显示它 原因是我需要更改图像URL,并且Sheet2将作为html电子邮件发送 谢谢你给我的任何帮助 您可以使用vba将图片插入到范围中 Sub Button1_Click() Dim myTng As Range, myPic

我需要一些帮助

我一直在搜索excel中的一个代码,该代码允许我以图像的形式显示和URL。我已经找到了一些好的提示和代码,但我无法得到我想要的

图像URL位于表1 B15中,我在表2 B/C-22至36的合并单元格中显示图像。不知道是否可以在合并的单元格中显示它

原因是我需要更改图像URL,并且Sheet2将作为html电子邮件发送


谢谢你给我的任何帮助

您可以使用vba将图片插入到范围中

    Sub Button1_Click()
    Dim myTng As Range, myPict As Picture

    Set myRng = Range("B22:C36")
    Set myPict = myRng.Parent.Pictures.Insert(Sheets("Sheet1").Range("B15").Value)

    myPict.ShapeRange.LockAspectRatio = msoFalse
    myPict.Top = myRng.Top
    myPict.Width = myRng.Width
    myPict.Height = myRng.Height
    myPict.Left = myRng.Left
    myPict.Placement = xlMoveAndSize

End Sub

您可以使用vba将图片插入范围

    Sub Button1_Click()
    Dim myTng As Range, myPict As Picture

    Set myRng = Range("B22:C36")
    Set myPict = myRng.Parent.Pictures.Insert(Sheets("Sheet1").Range("B15").Value)

    myPict.ShapeRange.LockAspectRatio = msoFalse
    myPict.Top = myRng.Top
    myPict.Width = myRng.Width
    myPict.Height = myRng.Height
    myPict.Left = myRng.Left
    myPict.Placement = xlMoveAndSize

End Sub

我认为在单元格中显示图像的唯一方法是将其添加到注释中。您可以使用record宏。录制宏并插入带有URL的图片。您还可以根据需要将其粘贴到范围中。您也可以使用record macro查看它的工作原理。是的,按钮可以激活一个宏,使其成为图像,希望它在VBA中自动运行…请发布您尝试过的代码和看到的错误。有关如何在此处提问,请参阅。我认为在单元格中显示图像的唯一方法是将其添加到注释中。您可以使用record宏。录制宏并插入带有URL的图片。您还可以根据需要将其粘贴到范围中。您也可以使用record macro查看它的工作原理。是的,按钮可以激活一个宏,使其成为图像,希望它在VBA中自动运行…请发布您尝试过的代码和看到的错误。请参阅此处了解如何提问。是的,这将使图片处于我想要的范围内,经过几次调整后,我使其看起来很好。是的,这将使图片处于我想要的范围内,经过几次调整后,我使其看起来很好。