Как автоматически изменить размер комментария, чтобы он соответствовал его содержанию?

Question

Я пытаюсь превратить текстовое содержимое одной ячейки в комментарий к этой ячейке, а затем автоматически изменить размер комментария, чтобы он соответствовал истинному размеру содержимого. Я нашел два отдельных макроса, которые работают, но у меня проблемы с объединением их в один макрос.

Приведенный ниже код работает путем преобразования выбранной ячейки в комментарий. https://sumtips.com/tips-n-tricks/convert-excel-cell-contents-comments-vba/

Sub ConvertToComment()
Dim C As Range
For Each C In Selection
    C.ClearComments
    If Len(C.Value) > 0 Then
        C.AddComment
        C.COMMENT.Text C.Value & ""
    End If
    'Optional: Delete cell content after converting
    C = "See Comment"
    Next C
End Sub

Приведенный ниже код работает в автоматическом режиме по размеру всех комментариев на листе. https://quadexcel.com/how-to-auto-size-comment-box-to-fit-its-content-in-excel/

Sub FitComments()
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

Как включить указанную ниже строку в макрос ConvertToComment () вверху?

xComment.Shape.TextFrame.AutoSize = True

Приведенный ниже код - моя грустная попытка добавить строку, которая, на мой взгляд, важна, чтобы она работала так, как я хочу. Создайте комментарий и измените размер созданного комментария, чтобы он соответствовал содержанию. Я все еще очень плохо знаком с VBA.

Sub ConvertToComment()
Dim C As Range
Dim xComment As COMMENT
For Each C In Selection
    C.ClearComments
    If Len(C.Value) > 0 Then
        C.AddComment
        C.COMMENT.Text C.Value & ""
  -->   COMMENT.Text C.Shape.TextFrame.AutoSize = True
    End If
    'Optional: Delete cell content after converting
    C = "See Comment"
    Next C
End Sub

Сообщение об ошибке «Объект не поддерживает этот проект или метод»