Как с помощью макроса сделать так, чтобы размеры надписи подгонялись под текст?
В программе "Word" это делается так: щёлкните по рамке надписи правой кнопкой мыши - Формат фигуры... - справа появится область - вкладка "Параметры фигуры" - кнопка "Макет и свойства" - галочка "Подгонять размеры фигуры под текст".
Макрос работает с выделенной надписью.
Sub Макрос()
Selection.ShapeRange(1).TextFrame.AutoSize = True
End Sub
спасибо