|
んー・・そんな難しいことをするのが目的だったなら、
私には到底わかりません。ただ一つ言えることは
Select イベントでは、引数に座標を捕捉するものが無いので
無理なのでは ? ということだけです。Selectイベントの
サンプルは↓のようなものになります。
Sub myChartClass_Select(ByVal ElementID As Long, _
ByVal Arg1 As Long, ByVal Arg2 As Long)
If ElementID = xlSeries Then
If Arg2 <> -1 Then
MsgBox "系列番号 = " & Arg1 & vbLf & _
"ポイント番号 = " & Arg2
End If
End If
End Sub
Selectイベントの引数は、初めに選択したオブジェクトの種類が ElementID に
渡され、それによって Arg1, Arg2 の値が決ります。上の例では任意の系列を選択
したときに、その系列番号とその中の Point のIndexがメッセージされます。
Arg2 = -1 の場合は、全てのポイントが選択されている(つまり系列全体が選択
されている)という状態を表します。
以上がグラフオブジェクトの Selectイベント の概要ですので、座標は取得
出来ません。
|
|