ScaleHeight (方法)

按指定的比例调整形状的高度。对于图片和 OLE 对象，可以指定是相对于原有尺寸还是相对于当前尺寸来调整该形状。对于不是图片和 OLE 对象的形状，总是相对于其当前大小来调整高度。

说明

MsoTriState 可以是下列 MsoTriState 常量之一。
msoCTrue。不应用于此属性。
msoFalse。相对于形状的当前尺寸来调整形状的大小。
msoTriStateMixed。不应用于此属性。
msoTriStateToggle。不应用于此属性。
msoTrue。相对于形状的初始尺寸来调整形状的大小。

参数

属性	数据类型	必填	说明
Factor	float	必填	指定形状调整后的高度与当前或原始高度的比例。例如，若要将一个矩形放大百分之五十，请将此参数设为 1.5。
RelativeToOriginalSize	Kso.MsoTriState	必填	如果为 msoTrue，则相对于形状的原有尺寸来调整高度。如果该值为 msoFalse，则相对于形状的当前尺寸来调整高度。仅当指定的形状是图片或 OLE 对象时，才能将此参数指定为 msoTrue。
Scale	any	可选	MsoScaleFrom 的常量之一，它指定调整形状大小时，该形状哪一部分的位置将保持不变。

示例

/*本示例将活动工作表上的所有图片和 OLE 对象放大至原高度和宽度的 175%，将所有其他形状放大至当前高度和宽度的 175%。*/
function test() {
    let s = Application.ActiveSheet.Shapes
    for (let i = 1; i <= s.Count; i++) {
        switch (s.Item(i).Type) {
            case msoEmbeddedOLEObject:
            case msoLinkedOLEObject:
            case msoOLEControlObject:
            case msoLinkedPicture:
            case msoPicture:
                s.Item(i).ScaleHeight(1.75, msoTrue)
                s.Item(i).ScaleWidth(1.75, msoTrue)
                break
            default:
                s.Item(i).ScaleHeight(1.75, msoFalse)
                s.Item(i).ScaleWidth(1.75, msoFalse)
        }
    }
}

/*本示例判断第一张工作表的第二个形状如果是图片，则将图片缩小至当前尺寸的50%。*/
function test() {
    let shape = Application.Worksheets.Item(1).Shapes.Item(2)
    if (shape.Type == msoPicture) {
        shape.ScaleHeight(0.5, msoFalse, msoScaleFromTopLeft)
    }
}