如何导入图片的表单？

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

我也遇到了这个问题，我想我find了一个解决scheme。 对我来说，问题是我想复制的表单被隐藏了。 所以我插入了行表（x）.visible = true“到我的代码。另一个我不得不改变是行”Application.Screenupdating = False“我以前必须被忽略。这些改变后，图片是可见的我希望这有助于。