|
▼ichinose さん:
>▼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
>>
>>もし、コメントに書く文字の大きさやフォントの変え方もお解りでしたら教えて頂けないでしょうか?
>なんてするとフォントの変更が可能です。
---------------
ありがとうございました。素晴らしいです!
Shape.TextFrame.Characters.Font
とは!!!!
Shape.TextEffect.FontSize = 14
などと色々試してみたのですが、全く認知してくれず途方にくれてました。
大変助かりました。
早速活用させて頂きます。
どうもありがとうございました。
|
|