Word Макросы: Поля фигуры

[Anton]

Добрый вечер!
Как ни пытаюсь что-то записывать с помощью макрорекордера, так ничего не выходит. Обращаюсь опять за помощью.
Проблема такая: есть надпись. У нее есть внутренние поля (правая кнопка-формат фигуры-надпись). Хотел автоматизировать, что бы у такой надписи все поля установить в 0,01 (в режиме записи макрорекордера даже выделить ее не могу).
Пример приложил.

[вложение удалено администратором]

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

Да, в этом случае макрорекордер не даёт код. Вообще, чтобы выделить рисунок (надпись тоже относится к рисунку), когда включен макрорекордер, нужно сделать так (Word 2016): вкладка "Главная" - группа "Редактирование" - Выделить - Выбор объектов - щёлкните по рисунку и рисунок будет выделен.
Чтобы после выделения отобразить контекстное меню, используйте клавишу на клавиатуре.

Макрос работает с выделенным рисунком.

Макрос

Sub Макрос()

    Dim shape As shape
   
    '1. Присваивание выделенной надписи имени "shape".
    Set shape = Selection.ShapeRange(1)
   
    '2. Изменение полей.
    shape.TextFrame.MarginLeft = CentimetersToPoints(0.1)
    shape.TextFrame.MarginRight = CentimetersToPoints(0.1)
    shape.TextFrame.MarginTop = CentimetersToPoints(0.1)
    shape.TextFrame.MarginBottom = CentimetersToPoints(0.1)

End Sub

[свернуть]

[Anton]

Спасибо за помощь!  И за науку спасибо!