How to change comment Box width and high

  • Thread starter Thread starter moonhk
  • Start date Start date
M

moonhk

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.
 
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
 
Back
Top