Resizing comment boxes

[Ian Coates]

I'm having trouble with the code to change the size of a comment box. My
code is below:

With Range("C17")
.AddComment
.Comment.Visible = False
.Comment.Text Text:=_
"Remove tube cover and measure across resistor. 1V=1mA
(Note: this involves removing the label on the rear of the tubehead and the
stick-on covers each side of the collimator)"
Selection.ShapeRange.ScaleHeight 1.37, msoFalse, msoScaleFromTopLeft
End With

I got the code for resizing the box from a macro I recorded which is below:

Range("C17").Select
Range("C17").AddComment
Range("C17").Comment.Visible = False
Range("C17").Comment.Text Text:= _
"Remove tube cover and measure across resistor. 1V=1mA (Note: this
involves removing the label on the rear of the tubehead and the stick-on
covers each side of the collimator)"
Selection.ShapeRange.ScaleHeight 1.37, msoFalse, msoScaleFromTopLeft

Any help will be appreciated as always

Ian

 

[gkelle]

Here is some code I have used

Worksheets(1).Range("E6").AddComment "Current Sales"
Worksheets(1).Shapes(1).TextFrame.AutoSize = Tru