|
猫おじさんさん、ぴかるさん、ichinoseさん、こんにちは
>何で? ぴかるさんとこうちゃんのレスが同じなんでしょう?
>まっ、いいか・・・。
ぴかるさんと同時だったらしくて、なんかへんです(^^;)
で、再度書き込みます。
---------------------------------
> 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
|
|