PowerPoint VBA教程:ScaleWidth方法

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

expression.ScaleWidth(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 默认值。

VBA示例

本示例将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

上页:PowerPoint VBA教程:ScaleHeight方法 下页:PowerPoint VBA教程:ScrollIntoView方法

PowerPoint VBA教程:ScaleWidth方法

PowerPoint VBA教程:ScrollIntoView方法 PowerPoint VBA教程:Select方法
PowerPoint VBA教程:SelectAll方法 PowerPoint VBA教程:SendForReview方法
PowerPoint VBA教程:Sentences方法 PowerPoint VBA教程:SetCMYK Method
PowerPoint VBA教程:SetEditingType方法 PowerPoint VBA教程:SetExtrusionDirection方法
PowerPoint VBA教程:SetPasswordEncryptionOptions方法 PowerPoint VBA教程:SetPosition方法
PowerPoint VBA教程:SetSegmentType方法 PowerPoint VBA教程:SetShapesDefaultProperties方法
PowerPoint VBA教程:SetThreeDFormat方法 PowerPoint VBA教程:SmallScroll方法
PowerPoint VBA教程:Solid方法 PowerPoint VBA教程:Split方法
PowerPoint VBA教程:SwapNode方法 PowerPoint VBA教程:ToggleVerticalText方法
PowerPoint VBA教程:TransferChildren方法 PowerPoint VBA教程:TrimText方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号