Shape.ScaleHeight 方法 (Excel)

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

语法

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

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

参数

名称	必需/可选	数据类型	说明
因素	必需	Single	指定形状调整后的高度与当前或原始高度的比例。 例如，要将一个矩形放大百分之五十，请将此参数指定为 1.5。
RelativeToOriginalSize	必需	MsoTriState	如果为 msoTrue，则相对于形状的原有尺寸来调整高度。 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。