Метод Shape.ScaleWidth (PowerPoint)

Статья
04/07/2023

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

Синтаксис

expression. ScaleWidth (Factor, RelativeToOriginalSize, fScale)

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

Параметры

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

Замечания

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

Значение параметра RelativeToOriginalSize может быть одной из следующих констант MsoTriState . MsoTrue можно указать для этого параметра, только если указанная фигура является рисунком или объектом OLE.

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

Значение параметра fScale может быть одной из следующих констант MsoScaleFrom . По умолчанию используется msoScaleFromTopLeft.


msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft

Пример

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

Set myDocument = ActivePresentation.Slides(1)

For Each s In myDocument.Shapes
    Select Case s.Type
      Case msoEmbeddedOLEObject, msoLinkedOLEObject, _
            msoOLEControlObject, msoLinkedPicture, msoPicture 
		s.ScaleHeight 1.75, msoTrue
        s.ScaleWidth 1.75, msoTrue

      Case Else
        s.ScaleHeight 1.75, msoFalse
        s.ScaleWidth 1.75, msoFalse

    End Select
Next s

См. также

Объект Shape

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

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