|
約300個ほどのセルにコメントを書き込み、フォントサイズ
やコメント枠の大きさを、そろえたいと思っています。
下記のマクロで動くのですが、コメント一つずつをSelectしているので
動作が遅く感じます。
Selectせずに、コメント枠の大きさやフォントを指定できないでしょうか?
例えば、コメント枠の大きさですが、
.Comment.Shape.ShapeRange.ScaleWidth 1.5, msoFalse,msoScaleFromTopLeft
と書くとエラーになってしまいます。
よろしくご教示ください。
For II = 1 To 27
For KK = 1 To 12
With Cells(II + 1, KK + 1)
If .Value <> "" Then
.AddComment 'コメントの追加を宣言
.Comment.Text Text:="いろいろ"'コメントの作成
.Comment.Visible = True
.Comment.Shape.Select True
'コメント枠の大きさの指定
Selection.ShapeRange.ScaleWidth 1.5, msoFalse,msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
’フォントの種類と大きさの指定
With Selection.Font
.Name = "MS ゴシック"
.Size = 12
End With
.Comment.Visible = False
End If
End With
Next KK
Next II
|
|