Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12838 / 13646 ツリー ←次へ | 前へ→

【7925】グラフのある点の座標を取得 みさっぴ 03/9/24(水) 10:11 質問
【7938】Re:グラフのある点の座標を取得 Kein 03/9/24(水) 18:00 回答
【8070】Re:グラフのある点の座標を取得 みさっぴ 03/9/29(月) 12:11 質問
【8385】Re:グラフのある点の座標を取得 みさっぴ 03/10/14(火) 14:00 質問

【7925】グラフのある点の座標を取得
質問  みさっぴ  - 03/9/24(水) 10:11 -

引用なし
パスワード
   またまた失礼いたします。

グラフ上の2点を自分で指定して、
その2点を結ぶ直線の傾きを計算するマクロを
作っています。

現在、その2点を自分で決めて、マウスをその点にあわせると
座標が表示されるので、それを読み取って計算しています。

もっと楽に、2点をそれぞれクリックするだけで
座標位置が取得できる方法はないでしょうか。
(楽しすぎでしょうか?)

もしも、そのような方法がありましたら、教えてください。
たびたび、失礼いたしました。

【7938】Re:グラフのある点の座標を取得
回答  Kein  - 03/9/24(水) 18:00 -

引用なし
パスワード
   Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, _
ByVal x As Long, ByVal y As Long)

というイベントで、X, Y座標が取得できると思います。
ただしグラフシートのみです。ワークシートの埋めこみグラフだと、クラスモジュール
を使うことになります。

【8070】Re:グラフのある点の座標を取得
質問  みさっぴ  - 03/9/29(月) 12:11 -

引用なし
パスワード
   ▼Kein さん:
ご回答ありがとうございます。
このようなことが可能とは思いませんでした。

>ただしグラフシートのみです。ワークシートの埋めこみグラフだと、クラスモジュール
>を使うことになります。

まさにワークシートの埋め込みなんです。
そうすると、このイベントだけではだめ、ということでしょうか?
とりあえず、ヘルプなどを見てみたいとおもいます。

【8385】Re:グラフのある点の座標を取得
質問  みさっぴ  - 03/10/14(火) 14:00 -

引用なし
パスワード
   ▼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を入れたら、そのまま終了してしまいます。
せっかくコマンドを見つけたのですが、うまく使えません。
どうやったらコマンドが使えるのでしょうか。

お手数ですが、よろしければ教えてください。

12838 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free