|
▼fkj さん:
>>'==============================================
>>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"
With .Shape.TextFrame.Characters.Font
.Name = "MS 明朝"
.Size = 24
End With
>> End With
>> End With
>>End Sub
>
>もし、コメントに書く文字の大きさやフォントの変え方もお解りでしたら教えて頂けないでしょうか?
なんてするとフォントの変更が可能です。
|
|