Excel VBA:从另一个工作表的URL显示图像

时间:2016-09-10 19:57:54

标签: excel vba excel-vba

需要一些帮助。

我一直在搜索excel中的代码,它可以让我显示和URL作为图像。我找到了一些很好的提示和代码,但我无法得到它我想要的。

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

原因是我需要更改图片网址,而Sheet2也会以html电子邮件的形式发送。

感谢您的帮助!

1 个答案:

答案 0 :(得分:0)

您可以使用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