PresetTextEffect (属性) #

#本示例将第一张工作表上所有艺术字的样式设置为艺术字库对话框中列出的第一个样式
def test():
    worksheet = Application.Worksheets.Item(1)
    for i in range(1, worksheet.Shapes.Count):
        if worksheet.Shapes.Item(s).Type == msoTextEffect:
            worksheet.Shapes.Item(s).TextEffect.PresetTextEffect = msoTextEffect1

#此示例显示活动工作表的第三个艺术字的形状是否为艺术字库对话框中列出的第二个样式
def test():
    shape = ActiveSheet.Shapes.Item(3)
    print(shape.TextEffect.PresetTextEffect == msoTextEffect2)