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的范围。