Метод Shape.ScaleWidth (Word)

  • Статья

Масштабирует ширину фигуры с применением указанного коэффициента.

Синтаксис

expression. ScaleWidth (Factor, RelativeToOriginalSize, Scale)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
Фактор Обязательный Single Задает отношение между шириной фигуры после ее изменения и текущей или исходной ширины. Например, чтобы сделать прямоугольник на 50 процентов больше, укажите для этого аргумента значение 1,5.
RelativeToOriginalSize Обязательный MsoTriState Значение true для масштабирования фигуры относительно ее исходного размера. Значение false для масштабирования относительно текущего размера. Значение True для этого аргумента можно указать только в том случае, если указанная фигура является рисунком или объектом OLE.
Scale Необязательный MsoScaleFrom Часть фигуры, которая сохраняет свое положение при масштабировании фигуры.

Замечания

Для изображений и объектов OLE можно указать, нужно ли масштабировать фигуру относительно исходного размера или относительно текущего размера. Фигуры, отличные от рисунков и объектов OLE, всегда масштабируются относительно их текущей ширины.

Пример

В этом примере все изображения и объекты OLE в myDocument масштабируются до 175 процентов от исходной высоты и ширины, а все остальные фигуры — до 175 процентов от текущей высоты и ширины.

Set myDocument = ActiveDocument 
For Each s In myDocument.Shapes 
 Select Case s.Type 
 Case msoEmbeddedOLEObject, msoLinkedOLEObject, _ 
 msoOLEControlObject, _ 
 msoLinkedPicture, msoPicture 
 s.ScaleHeight 1.75, True 
 s.ScaleWidth 1.75, True 
 Case Else 
 s.ScaleHeight 1.75, False 
 s.ScaleWidth 1.75, False 
 End Select 
Next

См. также

Объект Shape

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

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