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