WPS 基础接口 > 演示 API 参考 > ShapeRange > 方法 > ShapeRange.ScaleHeight 方法
以指定的比例缩放图形高度。对于图片和 OLE 对象来说，可指明图形缩放是根据原尺寸还是当前尺寸。对于除图片和 OLE 对象以外的其他图形来说，缩放总是相对于当前高度而言。

语法

表达式.ScaleHeight(Factor, RelativeToOriginalSize, fScale)

表达式   一个代表 ShapeRange 对象的变量。

参数

名称 必选/可选 数据类型 描述
Factor 必选 Single 指定形状调整后的高度与当前或原始高度的比例。例如，若要将一个矩形放大百分之五十，请将此参数指定为 1.5。
RelativeToOriginalSize 必选 MsoTriState 指定是否相对于形状的当前或原始尺寸来缩放形状。
fScale 可选 MsoScaleFrom 在缩放形状时，形状中位置不变的部分。

返回值
Nothing

说明

MsoTriState 可以是下列 MsoTriState 常量之一。
msoCTrue
msoFalse：相对于形状的当前尺寸缩放。
msoTriStateMixed
msoTriStateToggle
msoTrue 相对于原始大小缩放该形状。仅当指定形状是图片或 OLE 对象时，才为此参数指定 msoTrue。
MsoScaleFrom 可以是下列 MsoScaleFrom 常量之一。
msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft：默认值。

示例

本示例将 myDocument 上的所有图片和 OLE 对象放大至原高度和宽度的 175%，将所有其他形状放大至当前高度和宽度的 175%。

示例代码 
let myDocument = ActivePresentation.Slides.Item(1)

for(let i = 1; i <= myDocument.Shapes.Count; i++){
    switch(myDocument.Shapes.Item(i).Type){
        case msoEmbeddedOLEObject:
        case msoLinkedOLEObject:
        case msoOLEControlObject:
        case msoLinkedPicture:
        case msoPicture:
            myDocument.Shapes.Item(i).ScaleHeight(1.75, msoTrue)
            myDocument.Shapes.Item(i).ScaleWidth(1.75, msoTrue)
            break
        default:
            myDocument.Shapes.Item(i).ScaleHeight(1.75, msoFalse)
            myDocument.Shapes.Item(i).ScaleWidth(1.75, msoFalse)
            break
    }
}


请参阅