Использование автофигур в Word 2024 с помощью VBA

Степень завершённости урока: 50%   

Статистика урока:

• Количество полного кода: 1
• Количество снимков: 2
• Время чтения: менее 5 минут
• Уровень сложности: лёгкий

Автофигуры в Microsoft Word это готовые для использования графические объекты (линии, прямоугольники, стрелки, звёздочки и т.д.). Они являются векторными объектами, поэтому масштабируются без потери качества.

В макросе ниже msoShapeRectangle это константа, обозначающая прямоугольник. В Word можно использовать множество разных констант.

Sub AddRect()
    ActiveDocument.Shapes.AddShape msoShapeRectangle, 100, 100, 150, 80
End Sub

Результат выполнения макроса на снимке ниже.

Страница обновлена 19 октября 2025 года.