PowerPoint VBA教程:SetShapesDefaultProperties方法

将指定形状的格式应用于默认形状。默认情况下,使用该方法后创建的形状都将使用此格式。

expression.SetShapesDefaultProperties

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

VBA示例

本示例向myDocument 中添加矩形,格式化矩形的填充,将该矩形的格式应用于默认形状,再向该文档中添加一个较小的矩形。第二个矩形的填充与第一个矩形相同。


Set mydocument = ActivePresentation.Slides(1)
With mydocument.Shapes
    With .AddShape(msoShapeRectangle, 5, 5, 80, 60)
        With .Fill
            .ForeColor.RGB = RGB(0, 0, 255)
            .BackColor.RGB = RGB(0, 204, 255)
            .Patterned msoPatternHorizontalBrick
        End With
    ' Sets formatting for default shapes
        .SetShapesDefaultProperties
    End With
' New shape has default formatting
    .AddShape msoShapeRectangle, 90, 90, 40, 30
End With

上页:PowerPoint VBA教程:SetSegmentType方法 下页:PowerPoint VBA教程:SetThreeDFormat方法

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方法
PowerPoint VBA教程:TwoColorGradient方法 PowerPoint VBA教程:Ungroup方法
PowerPoint VBA教程:Unselect方法 PowerPoint VBA教程:Update方法
PowerPoint VBA教程:UpdateLinks方法 PowerPoint VBA教程:UseDefaultFolderSuffix方法
PowerPoint VBA教程:UserPicture方法 PowerPoint VBA教程:UserTextured方法
PowerPoint VBA教程:Value方法 PowerPoint VBA教程:WebPagePreview方法
PowerPoint VBA教程:Words方法 PowerPoint VBA教程:ZOrder方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号