Здравствуйте!  
 
Подскажите пожалуйста, можно ли и каким образом заставить 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

Здравствуйте!  
 
Помогите пожалуйста решить задачу, сам пока не силен.  
 
Есть excel-файл с таблицен стран.  
Нужно сделать так, чтобы при двойном щелчке мышью на ячейках столбца А открывалась VBA-форма с картинкой из файла (название файла без расширения - в ячейках столбца B).  
 
Размер VBA-формы должен соответствовать размеру картинки, наименование формы браться также из столбца B.  
 
Файл с примером прилагаю.  
 
Заранее благодарен,  
С уважением,  
Y_a_r