Как изменить цвет и размер Примечания

[Оксана33]

Sub ВставитьПримечание()
Dim Tt
Tt = InputBox("Введите текст примечания", "Примечание (100*150)")
If Tt = "" Then Exit Sub
Selection.NoteText Text:=Tt

With Selection.Comment.Shape
.OLEFormat.Object.Font.Size = 18
.Height = 100
.Width = 150
.Visible = False
End With
End Sub

размеры здесь заданы (100*150), но можно ли сделать автоподбор длины, ширины Примечания в зависимости от текста?
и если возможно, как изменить цвет Примечания?

[pashulka]

Range("A1").ClearComments
With Range("A1").AddComment.Shape
     .TextFrame.Characters.Text = "Как изменить цвет и размер Примечания"
     .TextFrame.AutoSize = True
     .Fill.ForeColor.RGB = vbRed
End With

Range("A2").ClearComments
With Range("A2").AddComment("Как изменить цвет и размер Примечания2").Shape
     .TextFrame.AutoSize = True
     .Fill.ForeColor.SchemeColor = 10
End With

[Оксана33]

Сообщение от pashulka

Range("A1").ClearComments
With Range("A1").AddComment.Shape
     .TextFrame.Characters.Text = "Как изменить цвет и размер Примечания"
     .TextFrame.AutoSize = True
     .Fill.ForeColor.RGB = vbRed
End With

Range("A2").ClearComments
With Range("A2").AddComment("Как изменить цвет и размер Примечания2").Shape
     .TextFrame.AutoSize = True
     .Fill.ForeColor.SchemeColor = 10
End With

спасибо!!!