Автор Тема: Word VBA Макросы. Как с помощью макроса сделать так, чтобы размеры надписи подгонялись под текст?  (Прочитано 1299 раз)

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
Как с помощью макроса сделать так, чтобы размеры надписи подгонялись под текст?

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

Оффлайн Администратор

  • Administrator
  • Сообщений: 1866
Макрос работает с выделенной надписью.

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

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34