riz

Cannot add scrollbar to Comments.

Can autosize with this macro.............

Sub Comments_AutoSize()
'posted by Dana DeLouis 2000-09-16
Dim MyComments As Comment
Dim lArea As Long
For Each MyComments In ActiveSheet.Comments
With MyComments
.Shape.TextFrame.AutoSize = True
If .Shape.Width 300 Then
lArea = .Shape.Width * .Shape.Height
.Shape.Width = 200
' An adjustment factor of 1.1 seems to work ok.
.Shape.Height = (lArea / 200) * 1.1
End If
End With
Next ' comment
End Sub


Gord Dibben Excel MVP

On Wed, 9 Feb 2005 05:29:02 -0800, riznob
wrote:

I am tired of adjusting the size of the comment box. I just want the ability
to scroll downand see all of the entries.