Поделиться через

Свойство ShapeRange.LockAspectRatio (Publisher)

  • Статья

Возвращает или задает констанду MsoTriState , указывающую, сохраняет ли указанная фигура исходные пропорции при изменении размера. Для чтения и записи.

Синтаксис

expression. LockAspectRatio

Выражение Переменная, представляющая объект ShapeRange .

Замечания

Значение свойства LockAspectRatio может быть одной из констант MsoTriState , объявленных в библиотеке типов Microsoft Office и показанных в следующей таблице.

Константа Описание
msoFalse Высота и ширина фигуры изменяются независимо друг от друга при ее изменении.
msoTriStateMixed Возвращаемое значение, указывающее сочетание msoTrue и msoFalse для указанного диапазона фигур.
msoTriStateToggle Заданное значение, переключающееся между msoTrue и msoFalse.
msoTrue При изменении размера указанной фигуры сохраняются исходные пропорции.

Пример

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

Dim shp As Shape 
 
Set shp = ActiveDocument.Pages(1).Shapes _ 
 .AddShape(Type:=msoShapeCube, _ 
 Left:=50, Top:=50, Width:=100, Height:=200) _ 
 
shp.LockAspectRatio = msoTrue

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

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