Shape.ScaleHeight 方法 (PowerPoint)

按指定因子缩放形状的高度。

语法

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

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

参数

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

备注

对于图片和 OLE 对象来说，可指明形状缩放相对于其原始尺寸还是当前尺寸。 对于除图片和 OLE 对象以外的其他形状来说，缩放总是相对于其当前高度而言。

RelativeToOriginalSize 参数值可以是以下 MsoTriState 常量之一。 仅当指定的形状是图片或 OLE 对象，您可以指定此参数的 属性值为 msoTrue 。

常量	说明
msoFalse	相对于当前尺寸缩放形状。
msoTrue	相对于原始尺寸缩放形状。

fScale 参数值可以是以下 MsoTriState 常量之一。 默认值为 msoScaleFromTopLeft 。

msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft

示例

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

Set myDocument = ActivePresentation.Slides(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 支持和反馈，获取有关如何接收支持和提供反馈的指南。