Excel VBA質問箱 IV

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

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


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

17308 / 76738

←次へ　｜　前へ→


	【64886】Re:クリック座標の取得

mura - 10/3/24(水) 17:12 -


	引用なし

	パスワード

▼フタッチさん：
>エクセルのシートの任意の座標をクリックしたところの
>座標を取得する方法はありませんでしょうか。
>エクセルのvbaで御願い致します。

以下は左クリックした座標(スクリーン座標、Pixcel単位)を取得するサンプルです。
'標準モジュール
Option Explicit
Type POINT
　x As Long
　y As Long
End Type
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINT) As Long

Public Sub sample1()
　Dim po As POINT
　Do
　　If GetAsyncKeyState(vbKeyLButton) Then
　　　Debug.Print "LButton "; Timer
　　　GetCursorPos po
　　　Debug.Print "x="; po.x & "　y=" & po.y
　　End If
　　DoEvents
　Loop Until GetAsyncKeyState(vbKeyEscape)
End Sub

で、何がしたいのでしょうか？
したいことを質問したほうが無駄なレスをせずに済む気がします。

0 hits

▼

【64882】クリック座標の取得 フタッチ 10/3/24(水) 14:57