エクセル VBAでシートのコピーを作りたい

過去にここで教えてもらって下記のマクロを使用しているのですが、このコードではシートにあるグラフがコピーされません。

これにどんなコードを、どこに追加すれば良いのでしょう。



Sub シート移動コピ()
'
Sheets("ｸﾞﾗﾌ化").Select
Sheets("ｸﾞﾗﾌ化").Copy After:=Sheets(1)
Rows("1:1000").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveSheet.Name = Range("C2").Value & " " & Range("C3") & " " & Range("A1")

'Sheets("ｸﾞﾗﾌ化").Select
Range("D3").Select



End Sub

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2023/05/18 12:38

マクロの1行目に

　Application.CopyObjectsWithCells = True
を追加した場合に、グラフなどのオブジェクトもコピーされませんか？

Excelの[オプション]で以下の設定がオフだとコピーの対象外になるので。
[挿入したオブジェクトをセルと共に切り取り、コピー、並べ替えを行う]
https://pcclick.seesaa.net/article/113754152.html
https://detail.chiebukuro.yahoo.co.jp/qa/questio …

この回答へのお礼

早々のご回答ありがとうございます。

早速試してみました。

一発解決でした！！！

初心者なので色々変えるとホボうまくいかなくて試行錯誤をくりかえすことになるのですが。。。

助かりました！！

お礼日時：2023/05/18 13:00