Объект Styles (Excel)
Коллекция всех объектов Style в указанной или активной книге.
Каждый объект Style представляет описание стиля для диапазона. Объект Style содержит все атрибуты стиля (шрифт, числовой формат, выравнивание и т. д.) в качестве свойств. Существует несколько встроенных стилей, включая обычный, денежный и процент.
Используйте свойство 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"
Используйте стили (index), где index — это номер или имя индекса стиля, чтобы вернуть один объект Style из коллекции стили книги. В следующем примере изменяется обычный стиль активной книги, задав ее свойство Bold .
ActiveWorkbook.Styles("Normal").Font.Bold = True
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.