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

我需要通过Excel VBA将图像嵌入到电子表格中，以便每当我重新放置excel文件时，图像仍会显示。我怎样才能做到这一点？

最佳答案

此代码将在当前工作表上插入图像，并将其放置在单元格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

关于image - 将图像嵌入到Excel电子表格-VBA，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/7382739/