Shape.ScaleWidth 方法 (PowerPoint)

按指定因子缩放形状的宽度。 对于图片和 OLE 对象，您可以说明是相对于原始大小还是相对于当前大小缩放形状。 图片和 OLE 对象以外的形状总是相对于当前宽度缩放。

语法

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

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

参数

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

备注

对于图片和 OLE 对象，您可以说明是相对于原始大小还是相对于当前大小缩放形状。 图片和 OLE 对象以外的形状总是相对于当前宽度缩放。

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

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

fScale 参数值可以是下列 MsoScaleFrom 常量之一。 默认值为 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 s

另请参阅

形状对象

支持和反馈

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