Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11929 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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 -


	引用なし

	パスワード

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

グラフがあって、そこの２点の座標を取得したいので、
グラフのある点をクリックすると、その座標が表示されるような
マクロを作りたいと思っています。
以前に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

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


	【13250】Re:再度、グラフの座標の取得

みさっぴ - 04/4/28(水) 17:31 -


	引用なし

	パスワード

▼でれすけさん：

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11929 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free