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

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

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