- '図をコピーして貼り付け
- ThisWorkbook.Sheets(1).Activate
- ThisWorkbook.Sheets(1).Shapes("タイトル1").Select
- Selection.Copy
- Windows(bookName).Activate
- ActiveWorkbook.Sheets(1).Activate
- ActiveWorkbook.Sheets(1).Paste
转载于:https://blog.51cto.com/zhangmin/736382
转载于:https://blog.51cto.com/zhangmin/736382