Word VBA Макросы. Как с помощью макроса сделать так, чтобы размеры надписи подгонялись под текст?

[Peach]

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

В программе "Word" это делается так: щёлкните по рамке надписи правой кнопкой мыши - Формат фигуры... - справа появится область - вкладка "Параметры фигуры" - кнопка "Макет и свойства" - галочка "Подгонять размеры фигуры под текст".

[Администратор]

Макрос работает с выделенной надписью.

Sub Макрос()
    Selection.ShapeRange(1).TextFrame.AutoSize = True
End Sub

[Peach]

спасибо