Выполнил все 7 пунктов инструкции - всё получилось. Какой пункт у Вас не получается?

{quote}{login=The_Prist}{date=24.02.2011 02:09}{thema=}{post}Так а что не получается-то? Там все очень доступно и понятно описано. В чем у Вас проблема?{/post}{/quote}  
 
после того как выделил примечание, в 2007 оф где выбирать автофигуры ?

выбираю ячейку с примечанием - изменить примечание - примечание выделилось в рамке  
 
далее иду в панель автофигуры - выбираю фигуру - далее крестик переношу на выделенное примечание и нажимаю кнопку мыши  
 
ничего не получается - фигура просто вставляется на листи все  
 
где туплю подскажите

{quote}{login=condor}{date=24.02.2011 02:21}{thema=как делаю}{post} далее крестик переношу на выделенное примечание и нажимаю кнопку мыши{/post}{/quote}  
Ничего никуда переносить не нужно! После того, как выделено примечание - Изменить автофигуру. И уже затем выбираем НУЖНУЮ.

вот с того же сайта меняет цвет красного треугольника в примечании  
 
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  
 
прикольно - создает треугольник такого же размера и накрывает им красный