How to change comment Box width and high

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
 
R

Rick Rothstein

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.
 
M

moonhkt

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top