Excel VBA質問箱 IV

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

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


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

【13177】再度、グラフの座標の取得 みさっぴ 04/4/26(月) 11:26 質問[未読]
【13180】Re:再度、グラフの座標の取得 Asaki 04/4/26(月) 14:12 回答[未読]
【13181】Re:再度、グラフの座標の取得 でれすけ 04/4/26(月) 15:48 回答[未読]
【13250】Re:再度、グラフの座標の取得 みさっぴ 04/4/28(水) 17:31 質問[未読]

【13177】再度、グラフの座標の取得
質問  みさっぴ  - 04/4/26(月) 11:26 -

引用なし
パスワード
   こんにちは。お世話になっております。
以前に質問をしたのですが、やはりどうしても分からないので、
もう一度質問させてください。

グラフがあって、そこの2点の座標を取得したいので、
グラフのある点をクリックすると、その座標が表示されるような
マクロを作りたいと思っています。
以前にMouseDownというコードがあると教えていただき、ヘルプを見ると、

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

という使用例がのっていました。
しかし、いつも使っている、
Sub Macro1()
の後にくっつけてもうまくいきません。
どこが悪いのか教えていただけませんか?

いつも低レベルの質問ですみません。

【13180】Re:再度、グラフの座標の取得
回答  Asaki  - 04/4/26(月) 14:12 -

引用なし
パスワード
   こんにちは。

使っているのはイベントですので、
> Private Sub Chart_MouseDown(ByVal Button As Long, _
>    ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)

以下、
>End Sub
まで
グラフがあるシートに貼り付けないと、ダメなんではと思いますが。。。
試してみてください。

【13181】Re:再度、グラフの座標の取得
回答  でれすけ  - 04/4/26(月) 15:48 -

引用なし
パスワード
   こんにちは
そのグラフのあるシートのシートモジュールに以下のマクロをはっつけて、
Worksheet_Activateを一回走らせてからグラフをクリックしてみてください。

Dim WithEvents myChart As Chart

Private Sub myChart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
 MsgBox x & "," & y
End Sub

Private Sub Worksheet_Activate()
 Set myChart = ChartObjects(1).Chart
End Sub

>グラフがあって、そこの2点の座標を取得したいので、
>グラフのある点をクリックすると、その座標が表示されるような
この目的でつかえるかどうかはちょっと疑問ですけど...

【13250】Re:再度、グラフの座標の取得
質問  みさっぴ  - 04/4/28(水) 17:31 -

引用なし
パスワード
   ▼でれすけ さん:

とりあえず、貼り付けてみました。
でも、動きませんでした。(泣)
残念ながら、断念するしかないかもしれないです・・・。
情報をありがとうございました。

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