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