Метод Shape.ScaleWidth (Project)

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

Синтаксис

expression. ScaleWidth (Factor, RelativeToOriginalSize, fScale)

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

Параметры

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

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

Nothing

Замечания

Значение параметра RelativeToOriginalSizemsoTrue масштабирует фигуру относительно ее исходного размера, что применяется только к изображению или объекту 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

См. также

Объект ShapeMsoTriStateMsoScaleFrom

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

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