View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
moonhk[_2_] moonhk[_2_] is offline
external usenet poster
 
Posts: 36
Default 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