Shape.ScaleHeight (Project)

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

Синтаксис

выражение. ScaleHeight (Factor, RelativeToOriginalSize, fScale)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Фактор	Обязательный	Single	Соотношение между высотой фигуры после изменения размера и текущей высотой. Например, чтобы сделать прямоугольник на 50 процентов выше, задайте значение 1,5 для параметра Factor .
RelativeToOriginalSize	Обязательный	MSOTRISTATE	msoFalse масштабирует фигуру относительно ее текущего размера. Для Project значением должно быть msoFalse.
fМасштабирование	Необязательный	MSOSCALEFROM	Определяет, какая часть фигуры сохраняет свое положение при ее масштабировании.
Фактор	Обязательный	FLOAT
RelativeToOriginalSize	Обязательный	MSOTRISTATE
fМасштабирование	Необязательный	MSOSCALEFROM
Имя	Обязательный или необязательный	Тип данных	Описание

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

Nothing

Примечания

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

Пример

В следующем примере создаются две цилиндрические фигуры, а затем изменяется масштаб первой фигуры по высоте и ширине. Если вы установите точку останова в первой инструкции ScaleHeight , вы можете выполнить пошаговый код и увидеть изменения, связанные с масштабированием и использованием параметра fScale .

Sub ScaleShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Scale Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 20, 50, 20, 30)
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 140, 50, 30, 50)
    
    shp1.ScaleHeight 2, msoFalse
    shp1.ScaleWidth 2, msoFalse

    shp1.ScaleHeight 2, msoFalse, msoScaleFromMiddle
    shp1.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
End Sub

См. также

Объект-фигураMsoTriStateMsoScaleFrom

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

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