| |
▼Kein さん：
お世話になっております。
質問したときから大分期間が開いてしまったのですが、
頂いたヒントでヘルプを見てみました。
すると、
Private Sub Chart_MouseDown(ByVal Button As Long, _
ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
MsgBox "Button = " & Button & Chr$(13) & _
"Shift = " & Shift & Chr$(13) & _
"X = " & X & " Y = " & Y
というコマンドが使用例として書いてありました。
これは、グラフ上でマウスをクリックすると
座標をメッセージボックスに表示する、というコマンドだろうと
思います。
まさに欲しいと思っていたコマンドでした。
ありがとうございます。
ところが、マクロにこれを貼り付けても、Private Sub CommandButton1_Click()
と、Private Sub Chart_MouseDownの間にEnd Subを入れなさい、
という感じのエラーが出てしまいます。
そこにEnd Subを入れたら、そのまま終了してしまいます。
せっかくコマンドを見つけたのですが、うまく使えません。
どうやったらコマンドが使えるのでしょうか。
お手数ですが、よろしければ教えてください。
|
|
