Метод ShapeRange.ScaleWidth (Издатель)

Статья
04/07/2023

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

Синтаксис

expression. ScaleWidth (Factor, RelativeToOriginalSize, fScale)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Фактор	Обязательный	Single	Задает отношение между шириной фигуры после ее изменения и текущей или исходной ширины. Например, чтобы сделать прямоугольник на 50 процентов больше, укажите для этого аргумента значение 1,5.
RelativeToOriginalSize	Обязательный	MsoTriState	Указывает, следует ли масштабировать относительно исходного или текущего размера объекта.
fScale	Необязательный	MsoScaleFrom	Часть фигуры, которая сохраняет свое положение при масштабировании фигуры. Может быть одной из констант MsoScaleFrom , объявленных в библиотеке типов Microsoft Office; значение по умолчанию — msoScaleFromTopLeft.

Возвращаемое значение

Отсутствует

Примечания

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

Константа	Описание
msoFalse	Масштабирует фигуру относительно ее текущего размера.
msoTrue	Масштабирует фигуру относительно ее исходного размера.

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

Используйте метод ScaleHeight для масштабирования высоты фигуры.

Пример

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

' Looping variable. 
Dim shpLoop As Shape 
 
' Loop through all the shapes on the first page. 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 With shpLoop 
 Select Case .Type 
 ' If the shape is a picture or OLE object, 
 ' scale relative to original size. 
 Case pbPicture, pbLinkedPicture, _ 
 pbEmbeddedOLEObject, pbLinkedOLEObject, _ 
 pbOLEControlObject 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 ' If the shape is not a picture or OLE object, 
 ' scale relative to the current size. 
 Case Else 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 End Select 
 End With 
Next shpLoop

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

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

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