Question

根据指定的系数缩放图形宽度。对于图片和 OLE 对象来说，可指明图形缩放是根据原尺寸还是当前尺寸。对于图片和 OLE 对象以外的其他图形来说，总是相对于当前宽度进行缩放。

expression.ScaleWidth(Factor,RelativeToOriginalSize,Scale)

expression 必需。该表达式返回“应用于”列表中的一个对象。

Factor Single 类型，必需。指定重置尺寸后的图形宽度与当前或原宽度的比例。例如，设置此参数为 1.5 可使矩形放大 50%。

RelativeToOriginalSize 必需，MsoTriState。如果此参数为 True，则参照原尺寸缩放图形。如果为 False， 则按当前尺寸缩放。只有当指定的图形为图片或 OLE 对象时，才能将此参数设置为 True。

MsoTriState 可以是下列 MsoTriState 常量之一：

msoCTrue

msoFalse

msoTriStateMixed

msoTriStateToggle

msoTrue

Scale 可选，MsoScaleFrom。在缩放图形时，图形中位置不变的部分。

MsoScaleFrom 可以是下列 MsoScaleFrom 常量之一：

msoScaleFromBottomRight

msoScaleFromTopLeftdefault

msoScaleFromMiddle

示例

本示例将 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