グラフシートをアクティブにする

広告

指定したグラフシートをアクティブにする方法を確認します。Chartオブジェクトの「Activate」メソッドを使います。 

Dim chart1 As Chart

Set chart1 = Appliction.Charts(1)
chart1.Activate

まとめて次のように記述しても構いません。 

Appliction.Charts(1).Activate

サンプルプログラム

では簡単なサンプルで試してみましょう。

下記のようなExcelシートを用意しておきます。

グラフシートをアクティブにする

ブックにワークシートが3枚とグラフシートが1枚含まれています。グラフシートをアクティブにしてみます。

testchart2.bas 

Sub テスト()

    Dim chart1 As Chart

    Set chart1 = Application.Charts("Graph1")
    chart1.Activate
    
End Sub

上記マクロを実行すると次のようになります。

グラフシートをアクティブにする

指定したグラフシートがアクティブになり、前面に表示されます。

( Written by Tatsuo Ikura )