Свойство Shape.LockAspectRatio (Word)

MsoTrue, если указанная фигура сохраняет исходные пропорции при ее изменении. MsoFalse, если вы можете изменить высоту и ширину фигуры независимо друг от друга при ее изменении. Чтение и запись MsoTriState.

Синтаксис

expression. LockAspectRatio

выражение (обязательно). Переменная, представляющая объект Shape .

Пример

В этом примере куб добавляется в myDocument. Куб может быть перемещен и изменен, но не перепропорчен.

Set myDocument = ActiveDocument 
myDocument.Shapes.AddShape(msoShapeCube, _ 
 50, 50, 100, 200).LockAspectRatio = msoTrue

См. также

Объект Shape

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.