以指定的比例缩放图形高度。对于图片和 OLE 对象来说,可指明对图形所做的缩放是相对于原来的尺寸还是当前的尺寸。对于除图片和 OLE 对象以外的其他图形来说,缩放总是相对于当前高度而言。
expression.ScaleHeight(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