SetShapesDefaultProperties (方法) #

#本示例向第一张工作表中添加矩形，通过新建的shpRange对象设置该矩形的填充样式，将矩形的格式设置为形状的默认格式，然后在工作表中添加另一个较小的矩形。第二个矩形的填充格式与第一个矩形一样
def test():
    shapes = Application.Worksheets.Item(1).Shapes
    shape1 = shapes.AddShape(msoShapeRectangle, 5, 5, 80, 60)
    shpRange = shapes.Range([shape1.Name])
    f = shpRange.Fill
    f.ForeColor.RGB = (0, 0, 255)
    f.BackColor.RGB = (0, 204, 255)
    f.Patterned(msoPatternHorizontalBrick)
    # Set formatting as default formatting
    shpRange.SetShapesDefaultProperties()
    # Create new shape with default formatting
    shapes.AddShape(msoShapeRectangle, 90, 90, 40, 30)

#本示例将活动工作表中新建的shpRange对象的格式设置为默认格式，然后添加一个平行四边形，新形状的格式则与shpRange对象一样
def test():
    shpRange = ActiveSheet.Shapes.Range([1])
    shpRange.SetShapesDefaultProperties()
    ActiveSheet.Shapes.AddShape(msoShapeParallelogram, 200, 200, 100, 150)