Excelのグラフ移動に関する質問です。 以下のVBAを用いてグラフを2つ作成しました。 1つ目のグラフをK１のセル、 2つ目のグラフをK18のセルから記載し始めたいのですが、どのようなコードを組めばよいのでしょうか。 下から6～2行目のコメントアウトは、実行するとエラーが出た上で2つともK18にて重なった状態で出力されてしまいました。 '100%グラフ作成 Dim chtRng As Range Set chtRng = Range("G4", Range("G4").End(xlDown)) With ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Chart .SetSourceData Source:=chtRng .ChartGroups(1).GapWidth = 0 .SeriesCollection(1).XValues = chtRng.Offset(, -1) .HasTitle = True .ChartTitle.Text = cutright(ActiveWorkbook.Name, 5) & "-" & sheetname & "cm-100%" .SetElement (msoElementDataLabelOutSideEnd) With ActiveSheet.ChartObjects .Top = Range("K1").Top .Left = Range("K1").Left '位置を設定 .Height = 300 .Width = 500 '大きさを設定 End With End With '80%グラフ作成 Dim chtRng2 As Range Set chtRng2 = Range("J4", Range("J4").End(xlDown)) With ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Chart .SetSourceData Source:=chtRng2 .ChartGroups(1).GapWidth = 0 .SeriesCollection(1).XValues = chtRng2.Offset(, -1) .HasTitle = True .ChartTitle.Text = cutright(ActiveWorkbook.Name, 5) & "-" & sheetname & "cm-80%" .SetElement (msoElementDataLabelOutSideEnd) With ActiveSheet.ChartObjects '.Top = Range("K18").Top '.Left = Range("K18").Left '位置を設定 '.Height = 300 '.Width = 500 '大きさを設定 End With End With