Thread: Comments box
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Bryan De-Lara[_2_] Bryan De-Lara[_2_] is offline
external usenet poster
 
Posts: 44
Default Comments box

Ok Shane, here it is,

The following code will draw a triangular AutoShape over each comment
indicator on the active sheet:


Sub CoverCommentIndicator()
'www.contextures.com\xlcomments03.html
Dim ws As Worksheet
Dim cmt As Comment
Dim rngCmt As Range
Dim shpCmt As Shape
Dim shpW As Double 'shape width
Dim shpH As Double 'shape height

Set ws = ActiveSheet
shpW = 6
shpH = 4

For Each cmt In ws.Comments
Set rngCmt = cmt.Parent
With rngCmt
Set shpCmt = ws.Shapes.AddShape(msoShapeRightTriangle, _
rngCmt.Offset(0, 1).Left - shpW, .Top, shpW, shpH)
End With
With shpCmt
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 10 'Red
'12=Blue, 57=Green
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next cmt

End Sub
There are quite a few on
http://www.contextures.com/xlcomments03.html#Indicator which may be useful
to others here. Bryan."ShaneDevenshire"
wrote in message
...
Hi,

I don't know what the code is but if you show it I will tell you where to
put it and how to use it.

--
Thanks,
Shane Devenshire


"Bryan De-Lara" wrote:

Thanks Shane, I thought that might be the case, I have found a vba though
that draws a triangle over all the red triangles, but haven't a clue how
to
get it in.

Thanks again.

Bryan.

"ShaneDevenshire" wrote in
message ...
Hi,

We have no control of the color of the comment in Excel.

--
Thanks,
Shane Devenshire


"Bryan De-Lara" wrote:

Can I change the colour of the comments box, i.e. the corner red? I
use
red
on my absence sheet and the comment box doesn't show unless you hover
over
it.
Help would be appreciated.

Bryan