|
2007は系列クリックでcht_MouseUpイベントが利かないようですね。
もし1クリックで済ませたい場合は変わりにcht_MouseDownイベントを使うと良いかもしれません。
標準モジュール側にPublic変数を設定して
Option Explicit
Public ElemID As Long, Arg1 As Long, Arg2 As Long
Sub test()
Dim Var As Variant
Dim Msg As String
Dim Msg2 As String
Var = cht_class.cht.SeriesCollection(Arg1).XValues
Msg = Var(Arg2)
:(以下現在のcht_MouseUpイベント処理の中身)
End Sub
cht_MouseDownイベントには
Private Sub cht_MouseDown(ByVal Button As Long, _
ByVal Shift As Long, _
ByVal x As Long, _
ByVal y As Long)
cht.GetChartElement x, y, ElemID, Arg1, Arg2
If ElemID = xlSeries Then
Application.OnTime Now, "test"
End If
End Sub
Application.OnTimeメソッドを使って標準モジュールの"test"プロシージャを呼び出すようにします。
|
|