Добрый вечер!
Как ни пытаюсь что-то записывать с помощью макрорекордера, так ничего не выходит. Обращаюсь опять за помощью.
Проблема такая: есть надпись. У нее есть внутренние поля (правая кнопка-формат фигуры-надпись). Хотел автоматизировать, что бы у такой надписи все поля установить в 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
Спасибо за помощь! И за науку спасибо!