Метод Shape.ScaleHeight (PowerPoint)

Статья
04/07/2023

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

Синтаксис

expression. ScaleHeight (Factor, RelativeToOriginalSize, fScale)

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

Параметры

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

Замечания

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

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

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

Значение параметра fScale может быть одной из следующих констант MsoTriState . По умолчанию используется 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

См. также

Объект Shape

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

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

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