|
▼フタッチ さん:
>エクセルのシートの任意の座標をクリックしたところの
>座標を取得する方法はありませんでしょうか。
>エクセルの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
で、何がしたいのでしょうか?
したいことを質問したほうが無駄なレスをせずに済む気がします。
|
|