根据指定的系数缩放图形宽度。对于图片和 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 |
msoScaleFromTopLeft default |
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