ShapeRange.ScaleWidth 方法 (Excel)

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

语法

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

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

参数

名称	必需/可选	数据类型	说明
因素	必需	Single	指定形状调整后的宽度与当前或原始宽度的比例。 例如，要将一个矩形放大百分之五十，请将此参数指定为 1.5。
RelativeToOriginalSize	必需	MsoTriState	msoFalse 可相对于其当前大小缩放它。 仅当指定的形状是图片或 OLE 对象时，才能将此参数指定为 msoTrue。
小数位数	可选	Variant	MsoScaleFrom 的常量之一，指定缩放形状时形状的哪个部分保留其位置。

示例

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

Set myDocument = Worksheets(1) 
For Each s In myDocument.Shapes 
    Select Case s.Type 
    Case msoEmbeddedOLEObject, _ 
            msoLinkedOLEObject, _ 
            msoOLEControlObject, _ 
            msoLinkedPicture, msoPicture 
        s.ScaleHeight 1.75, msoTrue 
        s.ScaleWidth 1.75, ,msoTrue 
    Case Else 
        s.ScaleHeight 1.75, msoFalse 
        s.ScaleWidth 1.75, msoFalse 
    End Select 
Next

支持和反馈

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