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

広告

指定したグラフシートをアクティブにする方法を確認します。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

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

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

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

Excel VBA入門の他の記事を見てみる

( Written by Tatsuo Ikura )

関連記事 (一部広告含む)