Printing Comment Indicators

[Jared]

Is there any way (excel 2000) to print a worksheet with the comment
indicators? I want to print my worksheet with all the data and be able
to look at it and tell where I've got comments on it. I don't want the
comments to print, just the normal worksheet with all the data in each
cell along with the comment indicator.

[Mark Driscol]

You could put a small triangular shape in the corner of each cell that has a
comment using a macro similar to the first one below. After printing, you
can run the second macro to delete the shapes.

Mark

Option Explicit

Sub MakeIndicators()

Dim i As Long
Dim MyParent As Range

For i = 1 To ActiveSheet.Comments.Count
If i = 1 Then
Set MyParent = Range(ActiveSheet.Comments(i).Parent.Address)
With MyParent
ActiveSheet.Shapes.AddShape(msoShapeRightTriangle, _
.Left + .Width, .Top, 8.25, 6#).Select
End With
With Selection.ShapeRange
.ScaleWidth 1.09, msoFalse, msoScaleFromBottomRight
.ScaleHeight 1.38, msoFalse, msoScaleFromTopLeft
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 10
.Fill.Visible = msoTrue
.Fill.Solid
.Left = MyParent.Left + MyParent.Width - .Width
End With
Selection.Copy
Else
Range(ActiveSheet.Comments(i).Parent.Address).Select
ActiveSheet.PasteSpecial Format:="MS Office Drawing Object", _
Link:=False, DisplayAsIcon:=False
End If
Next i

End Sub

Sub DeleteIndicators()

Dim i As Long

With ActiveSheet
For i = .Shapes.Count To 1 Step -1
If .Shapes(i).AutoShapeType = msoShapeRightTriangle Then
.Shapes(i).Delete
Next i
End With

End Sub

"Jared" <jared...@buchheitonline.com> wrote in message
news:33ca82d2.02072...@posting.google.com...

[Debra Dalgleish]

Another option, if your worksheet isn't too big:

1. Select the used area of the worksheet.
2. Hold the Shift key and choose Edit>Copy Picture
3. Switch to a blank sheet in the workbook.
4. Choose Edit>Paste Special, Picture
5. Preview the page, and you'll see a copy of the original worksheet,
with the comment indicators visible.

--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html