将图像嵌入Excel电子表格 - VBA

Question

我需要通过Excel VBA将图像嵌入到电子表格中,这样每当我重新定位我的Excel文件时,图像仍然会显示出来.我怎样才能做到这一点？

Answer 1

此代码将在当前工作表上插入图像并将其定位在单元格E10:

Set oPic = Application.ActiveSheet.Shapes.AddPicture("d:\temp\mypic.jpg", False, True, 1, 1, 1, 1)
oPic.ScaleHeight 1, True
oPic.ScaleWidth 1, True

oPic.Top = Range("E10").Top
oPic.Left = Range("E10").Left