Метод ShapeRange.ScaleHeight (Excel)

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

Синтаксис

expression. ScaleHeight (Factor, RelativeToOriginalSize, Scale)

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

Параметры

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

Пример

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

Set myDocument = Worksheets(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

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

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