Question

请问在EXCEL中如何通过VBA 链接图片到指定的区域？

如下
Sub InsertPCIntoCel() '插入图片到指定单元格！
Sheet1.Pictures.Insert("C:\文件夹\dscn123.jpg").Select
End Sub
这段代码 只能在随机的位置上插入一个图片，对位置、图片大小都没有进行定义，请问朋友们如何通过代码指定显示位置和图片大小，比如显示在A1到E5这个区域。

Answer 1

Sub Insert() '插入图片到指定单元格！
Dim a As Object
Sheet1.Pictures.Delete
Set a = Sheet1.Pictures.Insert("C:\Documents and Settings\Administrator\桌面\dscn123.jpg")
a.Top = [a1].Top
a.Height = [a1].Height + [a2].Height + [a3].Height + [a4].Height + [a5].Height
a.Left = [a1].Left
a.Width = [a1].Width + [b1].Width + [c1].Width + [d1].Width + [e1].Width
End Sub

以上代码可以再sheet1中插入一张图片，图片大小刚好占满a1：e5的范围。

追问

您好，朋友，感谢您的回答，但是我运行代码后，图片高度方向超出了E5，请问这是怎么回事？

追答

这是我运行后的图片。应该没有问题

Answer 2

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "sheet2" And Target <> "" Then
Sheets("sheet2").Cells(1, 2) = Target.Value
Else
Exit Sub
End If
end sub
希望对你有所帮助！

追问

您好，请问Target 怎么定义为图片啊