Excel VBA ： セルのコメントの書式設定をするマクロを教えて下さい。

タイトルどおりですが、マクロの記録で生成されたスクリプトを実行してもエラーになってしまいます。
どう記述すれば良いのか、教えて下さい。

やりたいことは、次の設定の操作をVBAで行いたいです。
セルに既に設定されているコメントの書式設定の "プロパティ" タブの "オブジェクトの位置関係" を、"セルに合わせて移動するがサイズ変更はしない" に設定です。
つまり、セル毎に噴出しのように表示されるコメントの、その枠を右クリックして、"コメントの書式設定" で開くダイアログの設定を自動化したいです。
セル１つ分の設定マクロで十分です。

変更したいコメントがあまりにも多くて困っております。
よろしくお願い致します。

No.1 ベストアンサー 回答者： redfox63 回答日時： 2007/07/19 04:50

セルのコメントの該当プロパティ変更は

Sub Macro1( r as Range )
　　' コメントが存在するかチェック
　　if not r.Comment is Nothing then
　　　　r.Comment.Shape.Placement = xlMove
　　end if
End Sub

コレを呼び出すマクロ
Sub Macro2()
　　dim rr as range
　　' 画面更新停止
　　Application.ScreenUpdating = False
　　' 変更するセル範囲は適宜修正してください
　　for each rr in Range("B1:B20")
　　　　Macro1 rr
　　Next
　　' 画面更新再開
　　Application.ScreenUpdating = True
End Sub

この回答へのお礼

おおおおぉーーーーっ！！！！！！！
できました！！

20+10pt 付けられないのは何でだぁ？

お礼日時：2007/07/19 14:32