即効テクニック |
’===宣言セクション=== Private WithEvents MyChart As Chart ’===シートActivate時=== Private Sub Worksheet_Activate() If MyChart Is Nothing Then Set MyChart = ActiveSheet.ChartObjects(1).Chart End If End Sub ’===チャートのイベント処理=== Private Sub MyChart_Activate() ’・・・ End Sub
※埋め込みグラフのイベント処理を新規にクラスモジュールをVBEから挿入して行う場合の詳細はヘルプトピック”埋め込みグラフでイベントを使用する”をご覧ください。