3
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.
4

1 に答える 1