|
▼ichinose さん:
>'==============================================
>Sub Macro2()
> On Error Resume Next
> With Range("e16")
> .Comment.Delete
> With .AddComment
> .Visible = True
> .Text Text:="fk:" & Chr(10) & ""
> .Shape.ScaleWidth 2.27, msoFalse, msoScaleFromTopLeft
> .Shape.ScaleHeight 2.87, msoFalse, msoScaleFromTopLeft
> .Text Text:="fk:" & Chr(10) & "ddd"
> End With
> End With
>End Sub
>これで確認してください。
早速のご回答ありがとうございました。
上手くコメントシートが広がりました。
ありがとうございました。
もし、コメントに書く文字の大きさやフォントの変え方もお解りでしたら教えて頂けないでしょうか?
|
|