通过

Shape.ScaleWidth 方法 (Word)

  • 项目

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

语法

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

expression 是必需的。 一个代表 Shape 对象的变量。

参数

名称 必需/可选 数据类型 说明
因素 必需 Single 指定形状调整后的宽度与当前或原始宽度的比例。 例如，要将一个矩形放大百分之五十，请将此参数指定为 1.5。
RelativeToOriginalSize 必需 MsoTriState 为 扩展相对于原始大小的形状。 False ，则相对于当前大小缩放形状。 仅当指定的形状是图片或 OLE 对象时，可以将此参数指定 为 True 。
Scale 可选 MsoScaleFrom 在缩放形状时，形状中位置不变的部分。

备注

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

示例

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

Set myDocument = ActiveDocument 
For Each s In myDocument.Shapes 
 Select Case s.Type 
 Case msoEmbeddedOLEObject, msoLinkedOLEObject, _ 
 msoOLEControlObject, _ 
 msoLinkedPicture, msoPicture 
 s.ScaleHeight 1.75, True 
 s.ScaleWidth 1.75, True 
 Case Else 
 s.ScaleHeight 1.75, False 
 s.ScaleWidth 1.75, False 
 End Select 
Next

另请参阅

形状对象

支持和反馈

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