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

发布网友发布时间：2023-10-31 06:49

共2个回答

热心网友时间：2024-12-13 06:24

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，请问这是怎么回事？

追答

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

热心网友时间：2024-12-13 06:25

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 怎么定义为图片啊