Styles 集合

Workbook Styles Style

指定工作簿或活动工作簿上所有 Style 对象的集合。每个 Style 对象代表某一区域的样式说明。Style 对象包含样式的所有属性（字体、数字格式、对齐方式等）。有若干内置样式，包括“常规”、“货币”和“百分比”，这些样式都列在“格式”菜单的“ 样式”对话框中的“样式名”列表框中。

Styles 集合用法

可用 Styles 属性返回 Styles 集合。下例创建活动工作簿中第一张工作表上的样式名的列表。

For i = 1 To ActiveWorkbook.Styles.Count
    Worksheets(1).Cells(i, 1) = ActiveWorkbook.Styles(i).Name
Next

可用 Add 方法创建新样式，并将其添加到集合中。下例以“常规”样式为基础创建新样式，修改边框和字体，然后将该样式应用于单元格区域 A25:A30。

With ActiveWorkbook.Styles.Add(Name:="Bookman Top Border")
    .Borders(xlTop).LineStyle = xlDouble
    .Font.Bold = True
    .Font.Name = "Bookman"
End With
Worksheets(1).Range("A25:A30").Style = "Bookman Top Border"

可用 Styles(index)（其中 index 为样式编号或名称）从工作簿 Styles 集合中返回单个 Style 对象。下例通过设置活动工作簿中“常规”样式的 Bold 属性来更改该样式。

ActiveWorkbook.Styles("Normal").Font.Bold = True