通过

Shape.ScaleWidth 方法 (Project)

  • 项目

按指定因子缩放形状的宽度。

语法

表达式。ScaleWidth (Factor、 RelativeToOriginalSize、 fScale)

表达 一个代表 Shape 对象的变量。

参数

名称 必需/可选 数据类型 说明
因素 必需 Single 调整形状大小后的形状宽度与当前宽度之间的比率。 例如，若要使矩形宽 50%，请为 Factor 参数指定 1.5。
RelativeToOriginalSize 必需 MsoTriState msoFalse 相对于其当前大小缩放形状。 对于 Project，该值必须为 msoFalse。
fScale 可选 MsoScaleFrom 指定在缩放形状时，该形状的哪一部分将保持在原有的位置。
因素 必需 FLOAT
RelativeToOriginalSize 必需 MSOTRISTATE
fScale 可选 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

另请参阅

Shape 对象MsoTriStateMsoScaleFrom

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。