Hi All

How to change comment Box width and high.

Below is records vba, but Selection.ShapeRange.ScaleWidth have error.
How to change set comment Width ?


Sub Macro1()
'

Range("S19").AddComment
Range("S19").Comment.Visible = true
Range("S19").Comment.Text Text:="e:" & Chr(10) & ""
Selection.ShapeRange.ScaleWidth 5.05, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.24, msoFalse,
msoScaleFromTopLeft
Range("S19").Comment.Shape.Select True
Range("S19").Comment.Text Text:="e:" & Chr(10) & "zxdfdf"
Range("S23").Select
End Sub

I'm not 100% sure what height and width you ultimately want, but here is
some code for you to look at that adds the comment and sets the text, height
and width for it...

Sub AddComment()
With Range("S19")
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment
With .Comment
.Visible = True
.Shape.TextFrame.Characters.Text = "Line One" & Chr(10) & "Line Two"
.Shape.Width = 75
.Shape.Height = 100
End With
End With
End Sub

Note: The With/End With blocking cuts down on a whole lot of typing.

--
Rick (MVP - Excel)


"moonhk" wrote in message
...
Hi All

How to change comment Box width and high.

Below is records vba, but Selection.ShapeRange.ScaleWidth have error.
How to change set comment Width ?


Sub Macro1()
'

Range("S19").AddComment
Range("S19").Comment.Visible = true
Range("S19").Comment.Text Text:="e:" & Chr(10) & ""
Selection.ShapeRange.ScaleWidth 5.05, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.24, msoFalse,
msoScaleFromTopLeft
Range("S19").Comment.Shape.Select True
Range("S19").Comment.Text Text:="e:" & Chr(10) & "zxdfdf"
Range("S23").Select
End Sub

Hi All
Yes. Also how to set font name and font size ?

Sub AddComment()
With Range("A1")
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment
With .Comment
.Visible = False
.Shape.TextFrame.Characters.Text = "Line One" & Chr(10) & "Line
Two"
.Shape.Width = 500
.Shape.Height = 200

End With
End With
End Sub



On 9月25日, 下�10時43分, "Rick Rothstein"
wrote:
I'm not 100% sure what height and width you ultimately want, but here is
some code for you to look at that adds the comment and sets the text, height
and width for it...

Sub AddComment()
Â* With Range("S19")
Â* Â* On Error Resume Next
Â* Â* .Comment.Delete
Â* Â* On Error GoTo 0
Â* Â* .AddComment
Â* Â* With .Comment
Â* Â* Â* .Visible = True
Â* Â* Â* .Shape.TextFrame.Characters.Text = "Line One" & Chr(10) & "Line Two"
Â* Â* Â* .Shape.Width = 75
Â* Â* Â* .Shape.Height = 100
Â* Â* End With
Â* End With
End Sub

Note: The With/End With blocking cuts down on a whole lot of typing.

--
Rick (MVP - Excel)

"moonhk" wrote in message

...

Hi All

How to change comment Box width and high.

Below is records vba, but Selection.ShapeRange.ScaleWidth Â*have error.
How to change Â*set comment Width ?

Sub Macro1()
'

Â* Â*Range("S19").AddComment
Â* Â*Range("S19").Comment.Visible = true
Â* Â*Range("S19").Comment.Text Text:="e:" & Chr(10) & ""
Â* Â*Selection.ShapeRange.ScaleWidth 5.05, msoFalse,
msoScaleFromBottomRight
Â* Â*Selection.ShapeRange.ScaleWidth 1.24, msoFalse,
msoScaleFromTopLeft
Â* Â*Range("S19").Comment.Shape.Select True
Â* Â*Range("S19").Comment.Text Text:="e:" & Chr(10) & "zxdfdf"
Â* Â*Range("S23").Select
End Sub