エクセル・マクロでグラフを最背面に移動させたい

質問

エクセルのグラフを3つピッタリと重ねて表示しています
後ろのグラフを選択する時「最背面に移動」させてますが
これをマクロにしたいです
とりあえずマクロの記録でしてみたら

Sub Macro1()
ActiveSheet.ChartObjects("グラフ 7").Activate
ActiveChart.ChartArea.Select
Selection.ShapeRange.ZOrder msoSendToBack
ActiveWindow.Visible = False
Windows("Book1.xls").Activate
Range("A1").Select
ActiveSheet.ChartObjects("グラフ 5").Activate
ActiveChart.ChartArea.Select
Selection.ShapeRange.ZOrder msoSendToBack
ActiveWindow.Visible = False
Windows("Book1.xls").Activate
Range("A1").Select
ActiveSheet.ChartObjects("グラフ 2").Activate
ActiveChart.ChartArea.Select
Selection.ShapeRange.ZOrder msoSendToBack
ActiveWindow.Visible = False
Windows("Book1.xls").Activate
Range("A1").Select
End Sub

と出来たのですが、マクロの実行そしてみると３列目の Selection.ShapeRange.ZOrder msoSendToBack
の所で、
「実行時エラー438　オブジェクトはこのプロパティまたはメソッドをサポートしてません」
となってしまいます、どうすればよいのでしょう

ボタンを押したら最前面のグラフが最背面に移動するようにしたいのですが難しいのでしょうか

回答No.1

suz83238 · ベストアンサー

単に下じゃダメなの
ボタン付けてそれぞれマクロの登録

Sub GRA1()
ActiveSheet.ChartObjects("グラフ 1").Activate
End Sub
Sub GRA2()
ActiveSheet.ChartObjects("グラフ 2").Activate
End Sub
Sub GRA3()
ActiveSheet.ChartObjects("グラフ 3").Activate
End Sub

お礼

そんな簡単でいいのか・・・