Question

以指定的比例缩放图形高度。对于图片和 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

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