Свойство ShapeRange.LockAspectRatio (Excel)
Значение true , если указанная фигура сохраняет исходные пропорции при изменении размера фигуры. Значение False , если при изменении размера фигуры можно изменять высоту и ширину фигуры независимо друг от друга. Чтение и запись MsoTriState.
Синтаксис
expression. LockAspectRatio
Выражение Переменная, представляющая объект ShapeRange .
Пример
В этом примере куб добавляется в myDocument. Куб можно перемещать и изменять размер, но не перепропоряться.
Set myDocument = Worksheets(1)
myDocument.Shapes.AddShape(msoShapeCube, _
50, 50, 100, 200).LockAspectRatio = msoTrue
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.