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.