エクセル2007コメントの書式設定をはじめから変えたい

マクロを組んでみました。
よろしければ試してください。

Sub testコメント()
　　Dim cc As Range
　　For Each cc In Selection
　　　　With cc
　　　　　　.AddComment
　　　　　　With .Comment.Shape.TextFrame
　　　　　　　　.Characters.Font.Size = 11
　　　　　　　　.Characters.Font.Name = "HG丸ゴシックM-PRO"
　　　　　　　　.AutoSize = True
　　　　　　End With
　　　　End With
　　Next
End Sub

上記で
.AutoSize = True
に設定しているので、挿入されたコメント枠は小さなものです。
文字入力時も小さなままで、文字入力確定後にEscキーを押せば
文字数に合わせてコメント枠がサイズUPします。

投稿日時 - 2008-09-10 10:05:27