グラフのイベント一覧
- Activate : グラフがアクティブになった直後に発生します
- BeforeDoubleClick : ダブルクリックした瞬間に発生します
- BeforeRightClick : 右クリックした瞬間に発生します
- Calculate : 新しいデータまたは変更されたデータにより再描画した直後に発生します
- Change : セルが変更された直後に発生します
- Deactivate : 非アクティブになった直後に発生します
- DragOver : セル範囲をグラフにドラッグした瞬間に発生します
- DragPlot : セル範囲をグラフにドラッグ アンド ドロップした直後に発生します
- MouseDown : グラフ上で、マウスボタンを押した瞬間に発生します
- MouseMove : グラフ上で、マウス位置を移動した瞬間に発生します
- MouseUp : グラフ上で、マウスボタンを放した瞬間に発生します
- Resize : サイズを変更した直後に発生します
- Select : グラフ要素を選択した直後に発生します
- SeriesChange : データ要素の値を変更した直後に発生します
グラフイベントの使用手順
1) グラフを作成します
2) メニューの挿入「クラスモジュール」をクリックします
3) クラスモジュール内に下記のコードを入力します
'イベント用の変数
Public WithEvents MyGraphObject As Chart
4) MyGraphObjectが作成され、イベントが選択できるようになります
ここでは、MouseDownイベントを作成しました
'MouseDownイベント
Private Sub MyGraphObject_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
MsgBox "グラフ上でマウスが押されました"
End Sub
5) 標準モジュールに、グラフとClass1を関連付けるコードを入力します
'Class1のオブジェクト
Private MyGraph As New Class1
'グラフと関連付ける
Public Sub InitializeChart()
Set MyGraph.MyGraphObject = Worksheets(1).ChartObjects(1).Chart
End Sub
6) 開始前に、InitializeChartプロシージャーを実行します
これで、グラフイベントが動作できるようになります
グラフをクリックすると、イベントが実行され、メッセージボックスが表示されます