Question

以指定的比例缩放形状的高度。对于图片和 OLE 对象，可以指出是相对于形状的原始大小还是当前大小缩放。图片和 OLE 对象以外的形状总是相对于当前高度缩放。

expression.ScaleHeight(Factor, RelativeToOriginalSize,fScale)

expression必选。该表达式返回一个Shape 或ShapeRange 对象。

Factor必选。Single 类型。指定形状调整后的高度与当前或原始高度的比例。例如，若要将一个矩形放大百分之五十，请将此参数设为 1.5。

RelativeToOriginalSize必选。MsoTriState 类型。指定是否相对于当前或原始大小缩放该形状。

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue

msoFalse 相对于当前大小缩放该形状。

msoTriStateMixed

msoTriStateToggle

msoTrue 相对于原始大小缩放该形状。仅当指定形状是图片或 OLE 对象时，才为此参数指定msoTrue。

fScale可选。MsoScaleFrom 类型。缩放形状时保持其位置的形状部分。

MsoScaleFrom 可以是下列 MsoScaleFrom 类型常数之一。

msoScaleFromBottomRight

msoScaleFromMiddle

msoScaleFromTopLeft 默认值。

示例

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

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
 Select Case s.Type
 Case msoEmbeddedOLEObject, msoLinkedOLEObject, _
 msoOLEControlObject, msoLinkedPicture, msoPicture 
 s.ScaleHeight 1.75, msoTrue
 s.ScaleWidth 1.75, msoTrue
 Case Else
 s.ScaleHeight 1.75, msoFalse
 s.ScaleWidth 1.75, msoFalse
 End Select
Next