Fix Those Wandering Excel Comments
Do you ever open an Excel workbook, and find that tragedy has struck your comments? You spent hours inserting those comments, and making them just the right size and shape. Then, for no apparent reason, everything changes.
Some comments have flattened to a thin line. Other comments are so small that you can barely read the first word. A few comments have wandered far from their cell, and the connecting line stretches across the entire window.
What a mess! Fortunately, you can quickly get things back in place, by using an Excel macro or two.
Put Comments Back in Place
If your comments have slithered across the spreadsheet, you can use this macro to put them back in their parent cell.
Sub ResetComments() Dim cmt As Comment For Each cmt In ActiveSheet.Comments cmt.Shape.Top = cmt.Parent.Top + 5 cmt.Shape.Left = _ cmt.Parent.Offset(0, 1).Left + 5 Next End Sub
Get Comments Back in Shape
For comments that have shrunken to thin slivers, you can use this macro to get them back to a normal size.
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
More Excel Comment Macros
For more Excel comment macros, please visit the Excel Comment VBA page on the Contextures website.