プロが教えるわが家の防犯対策術!

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

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

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

A 回答 (1件)

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


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
    • good
    • 0
この回答へのお礼

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!