次のことが実現できるマクロを教えてもらえませんか？
コメントが多いのですが設定がめちゃくちゃなので整理したいと思います。
なお、はてなのコメント欄に追記しますが、もうひとつのマクロと抱き合わせで実行したいと思います。
よろしくお願いいたします。
なお大変恐縮ですがマクロ以外のご回答の方へのポイントは配布しない予定ですのでご承知置きください。
【行いたいこと】
アクティブシートに対し
すべてのコメントを対象（セルにはコメントがあるセルとないセルが不規則に存在する）として
コメントのプロパティを次のように変更
フォント 「MS明朝」
フォントサイズ「10ポイント」
コメントを可視設定（Visible = True）
コメントの自動サイズ調整をON（Autosize=Ture）
No.1
111
13
60pt
Sub hoge()
Dim SelCel As Range '選択セル
Application.DisplayCommentIndicator = xlCommentAndIndicator
ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Select 'シート内のコメントが設定されているセルを選択
For Each SelCel In Selection '選択セルにてループ
SelCel.Comment.Shape.Select True
With Selection.Font
.Name = "ＭＳ 明朝"
.Size = 10
End With
With Selection
.AutoSize = True
End With
Next
End Sub
Twill
2007/09/04 13:03:11
1
2
2
1
1
5
35
32
ありがとうございます！
変数もあわせていただきありがとうございました。
大変助かりました。