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”必须被忽略。在这些更改之后，图片对于我希望这会有所帮助。