ScaleWidth (方法)

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

说明

MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue。不应用于此属性。
msoFalse。相对于形状的当前尺寸来调整形状的大小。
msoTriStateMixed。不应用于此属性。
msoTriStateToggle。不应用于此属性。
msoTrue。仅当指定的形状是图片或 OLE 对象时，才能使用此参数。

参数

属性	数据类型	必填	说明
Factor	float	必填	指定形状调整后的宽度与当前或原始宽度的比例。例如，若要将一个矩形放大百分之五十，请将此参数设为 1.5。
RelativeToOriginalSize	Kso.MsoTriState	必填	如果为 False，则相对于形状的原有尺寸来调整宽度。仅当指定的形状是图片或 OLE 对象时，才能将此参数指定为 True。
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)
        }
    }
}

/*本示例将第一张工作表的第二个形状扩大至当前尺寸的150%，且形状的中点保持在原有的位置。*/
function test() {
    let shape = Application.Worksheets.Item(1).Shapes.Item(2)
    shape.ScaleHeight(1.5, msoFalse, msoScaleFromMiddle)
    shape.ScaleWidth(1.5, msoFalse, msoScaleFromMiddle)
}