Здравствуйте!  
 
Подскажите пожалуйста, можно ли и каким образом заставить Excel определять высоту комментария автоматически.  
 
Я нашел тут макрос:  
 
Sub All_Comments_Size_Change()  
Dim iComment As Comment  
For Each iComment In ActiveSheet.Comments  
iComment.Shape.TextFrame.AutoSize = True  
Next iComment  
End Sub    
 
но он меняет размеры всего комментария и, соответственно длинные строки не влезают на экран.  
 
А хотелось бы указать ширину комментария, а высоту пусть Excel подгоняет сам в зависимости от количества текста в комментарии.  
 
Например, я мспользую такой макрос:  
 
Sub Комментарии()  
Dim sh As Worksheet, com As Comment  
   For Each sh In ThisWorkbook.Worksheets  
       For Each com In sh.Comments  
           With com.Shape.TextFrame.Characters.Font  
               .Name = "Microsoft Sans Serif"  
               .Size = 8  
           End With  
           With com.Shape  
               .Width = 350  
               .Height = 230  
               .Fill.Transparency = 0.1  
               .Line.ForeColor.SchemeColor = 18  
           End With  
           With com.Shape.TextFrame  
               .MarginLeft = 5.67  
               .MarginRight = 5.67  
               .MarginTop = 5.67  
               .MarginBottom = 5.67  
           End With  
       Next com  
   Next sh  
End Sub  
 
Чему должно равняться .Height ?  
 
Спасибо!  
С уважением,  
Y_a_r