excel - VBA Excel 添加图片到工作表

Question

我发现了一些代码可以帮助将图片插入到工作表中，但用户必须选择插入哪张图片。我希望它会选择一张特定的图片(特别是公司 Logo )并插入它。代码如下:

PicLocation = Application.GetSaveAsFilename("C:\Work\test_Project\", "CA_Value_AVM, *.jpg", 1)
If PicLocation <> "" Then
    ActiveSheet.Pictures.Insert(PicLocation).Select
Else
    Exit Sub
End If

单击按钮时执行此代码。用户单击它，然后打开路径“C:\Work\test_Project\”，用户必须单击图片。我需要对此进行更改，以便用户不会单击任何内容。

Answer 1

我知道这是 4 年前提出的问题，但我想继续在这里更新答案，以便现在和 future 的搜索者(例如我自己)可以获得更完整的答案。

jonsca 的答案是合适的并且有效，但是如果移动电子表格，您的图片将无法工作。本质上，ActiveSheet.Pictures.Insert 嵌入图像，这意味着如果源图像或电子表格被移动，链接将中断并且图像将不会显示(正如OP最初询问的那样，对于公司电子表格来说不是很好)。

但是，如果您希望图片在移动/发送/等时起作用。你可以使用:

ActiveSheet.Shapes.AddPicture("C:\Work\test_Project\myjpgfile.jpg", False, True, 1, 1, 1, 1)

参见this post有关定位和其他内容的更多说明。

(感谢 PaulStock 的原始帖子)