オートシェイプ図形をクリックでコメントを表示したい

質問

エクセルで、オートシェイプ図形をクリックした際、コメントを表示したいです。
（データ→入力時メッセージのように…セルをクリックではなく、図形をクリックしてコメント表示）
マクロ等で可能なのでしょうか。
可能であれば、右クリック→マクロの登録欄へ記入する文字列をお教え頂けないでしょうか。

回答No.3

keithin · ベストアンサー

＞エクセルで、オートシェイプ図形をクリックした際、コメントを表示したい

いちばん簡単に出来る方法：
オートシェイプの例えば四角形を描く
右クリックしてマクロの登録を開始し，出来合のマクロ名で「新規作成」を選ぶ

Sub 四角形1_Click()
　MsgBox "四角形１のコメント"
End Sub

のように作成する。
図形をクリックすると記述した内容が表示される。

回答No.2

imogasi

シートに図形の四角などを張り付けた場合、イベントというのがどうなって居るかよくわからない。
参考　http://okwave.jp/qa/q3653505.html（Click以外は）。情報が少ない。
VBAで初心者がやる課題ではないと思う。
オートシェイプ図形ををどの点に注目して使うのかによるが、コントロールツールボックスのテキストボックスやイメージであれば、それらのオブジェクトで使えるイベントで代替出来ないかやってみたら。
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "AAA"
End Sub
や
Private Sub TextBox1_GotFocus()
MsgBox "aaa"
End Sub
の
MouseDownやGotFocus()のほかにも、コントロールの種類によって、それらしきものが数種あるから、代替出来ないか
テストしてみる。
MsgBox "AAA"がコメントの代わりです。読んだ後、OKボタンを押す必要があるり好まないかもしれないが。
ーー
ToolTipなどというのがあるが
http://www.moug.net/tech/acvba/0060022.htm
＞マクロの登録欄へ記入する文字列をお教え頂けないでしょうか、というレベルでは本問題は無理と思う。

回答No.1

xls88

ハイパーリンクで「ヒント設定」で代用ではだめでしょうか？

図形を右クリック＞ハイパーリンク＞「ヒント設定」でテキスト入力
続けて「アドレス」欄に「自ブック名（拡張子付き）」を入力して「OK」

（VBAで「マクロの登録」の例）
対象図形を選択して置いてTestプロシージャを実行してください。

Sub Test()
With Selection
.OnAction = "ヒント"
End With
End Sub

Sub ヒント()
MsgBox "これからどうしますか？"
End Sub