BuiltIn 属性

       

如果指定样式为内置样式,则该值为 TrueBoolean 类型,只读。

示例

本示例在第一张工作表上创建列表,该列表包含活动工作簿中所有样式的名称,并指明这些样式是否为内置样式。

r = 0
Worksheets(1).Activate
For Each s In ActiveWorkbook.Styles
    r = r + 1
    Cells(r, 1).Value = s.Name
    Cells(r, 2).Value = s.BuiltIn
Next