Word VBA教程:SetShapesDefaultProperties方法

将指定图形的格式应用于该文档中的默认图形。新图形将继承默认图形的许多属性。

expression.SetShapesDefaultProperties

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

说明

此方法的使用等效于“绘图”工具栏的“绘图”菜单中的“设置自选图形的默认效果”命令。

VBA示例

本示例将一个矩形添至myDocument,设置矩形的填充格式,将矩形的格式应用于默认图形,然后将另一个(较小的)矩形添至文档。后一个矩形与前一个矩形有相同的填充格式。


Set mydocument = ActiveDocument
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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号