Excel VBA教程:SetShapesDefaultProperties方法

将指定图形的格式设置为图形的默认格式。

expression.SetShapesDefaultProperties

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

Excel VBA教程:SetShapesDefaultProperties方法·示例

本示例向myDocument 中添加矩形,设置该矩形的填充样式,将矩形的格式设置为该矩形的默认格式,然后在文档中添加另一个较小的矩形。第二个矩形的填充格式与第一个矩形一样。


Set myDocument = Worksheets(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
        ' Set formatting as default formatting
        .SetShapesDefaultProperties
    End With
    ' Create new shape with default formatting
    .AddShape msoShapeRectangle, 90, 90, 40, 30
End With

上页:Excel VBA教程:SetSegmentType方法 下页:Excel VBA教程:SetSourceData方法

Excel VBA教程:SetShapesDefaultProperties方法

Excel VBA教程:SetSourceData方法 Excel VBA教程:SetThreeDFormat方法
Excel VBA教程:Show方法 Excel VBA教程:ShowAllData方法
Excel VBA教程:ShowDataForm方法 Excel VBA教程:ShowDependents方法
Excel VBA教程:ShowErrors方法 Excel VBA教程:ShowLevels方法
Excel VBA教程:ShowPages方法 Excel VBA教程:ShowPrecedents方法
Excel VBA教程:SmallScroll方法 Excel VBA教程:Solid方法
Excel VBA教程:Sort方法 Excel VBA教程:SortSpecial方法
Excel VBA教程:Speak方法 Excel VBA教程:SpecialCells方法
Excel VBA教程:获取有关 Macintosh 关键字的“帮助” Excel VBA教程:Subtotal方法
Excel VBA教程:SwapNode方法 Excel VBA教程:Table方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号