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