Метод 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.