Excel VBA質問箱 IV

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

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


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

17297 / 76732

←次へ　｜　前へ→


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

フタッチ - 10/3/25(木) 12:43 -


	引用なし

	パスワード

▼mura さん：
早々のレス有難う御座いました。
御指摘の様に、何をしたいか書いた方がよかった様
です。なにがしたいかと言いますとエクセルのシートに
記述してある図面番号をクリックしたら、cadが起動
し図面を表示するという事をしたいのです。
　　　　　　　　　　　　　敬具
>▼フタッチさん：
>>エクセルのシートの任意の座標をクリックしたところの
>>座標を取得する方法はありませんでしょうか。
>>エクセルの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
>
>で、何がしたいのでしょうか？
>したいことを質問したほうが無駄なレスをせずに済む気がします。

2 hits

▼

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