How to change comment Box width and high
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
|