|
猫おじさんさん、こんにちは
> Selectせずに、コメント枠の大きさやフォントを指定できないでしょうか?
こんな感じでどうでしょ?
> 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
.Comment.Shape.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.Comment.Shape.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
|
|