vba - 如何导入带有图像的工作表？

Question

Workbooks.Open fileName:=ThisWorkbook.path & "\Sea.xlsx"
Workbooks("Sea.xlsx").Sheets.Copy before:=ThisWorkbook.Sheets("Sky")
Workbooks("Sea.xlsx").Close False

这可行，但在 Sea.xlsx 上有一张带有图像的工作表。
工作表被复制，但图像未被复制。
相反，我有带有文本的框:

This image cannot be currently displayed.

Answer 1

我也遇到了这个问题，我想我已经找到了解决方案。对我来说，问题是我想要复制的工作表被隐藏了。所以我在我的代码中插入了行sheet(x).visible = true”。我必须更改的另一个是我之前使用的那行“Application.Screenupdating = False”必须被忽略。 在这些更改之后，图片对我来说是可见的。 希望这会有所帮助。