|
グラフ上でクリックするなら、そのグラフをアクティブにしないと何もできません。
まずVBEのメニュー「挿入」でクラスモジュールを挿入し、その先頭から
Public WithEvents myChartClass As Chart
Private Sub myChartClass_MouseUp(ByVal Button As Long, _
ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim Tp As Single, Lp As Single
With Range("B3")
Tp = .Top: Lp = .Left
End With
With UserForm1
.TextBox_X.Value = x + Lp
.TextBox_Y.Value = y + Tp
End With
End Sub
そしてフォームモジュールの先頭から
Dim myClassModule As New Class1
Private Sub UserForm_Activate()
ActiveSheet.ChartObjects(1).Activate
End Sub
Private Sub UserForm_Initialize()
Set myClassModule.myChartClass = _
ActiveSheet.ChartObjects(1).Chart
End Sub
Private Sub UserForm_Terminate()
Set myClassModule.myChartClass = Nothing
End Sub
を入れて、『線図01』をアクティブにしてから UserForm1.Show 0 のコードを
実行して下さい。
なお最初のクリックは2回して下さい。以降は1回で結構です。
|
|