Объект ColorScheme (издатель)

Статья
04/07/2023

Представляет цветовую схему, которая представляет собой набор из восьми цветов, используемых для различных элементов публикации. Каждый цвет представлен объектом ColorFormat .

Объект ColorScheme является членом коллекции ColorSchemes . Коллекция ColorSchemes содержит все цветовые схемы, доступные издателю Майкрософт.

Замечания

Используйте свойство ColorScheme объекта Document , чтобы вернуть цветовую схему для текущей публикации.

Используйте свойство Name , чтобы вернуть имя цветовой схемы.

Пример

В следующем примере для заполнения трех фигур на первой странице задается возвращаемое значение (в формате RGB) трех из восьми цветов ColorScheme .

Sub ReturnColorsAndApplyToShapes() 
 Dim lngAccent1 As Long 
 Dim lngAccent2 As Long 
 Dim lngAccent3 As Long 
 
 With ActiveDocument 
 With .ColorScheme 
 lngAccent1 = .Colors(pbSchemeColorAccent1).RGB 
 lngAccent2 = .Colors(pbSchemeColorAccent2).RGB 
 lngAccent3 = .Colors(pbSchemeColorAccent3).RGB 
 End With 
 With .Pages(1) 
 .Shapes(1).Fill.ForeColor.RGB = lngAccent1 
 .Shapes(2).Fill.ForeColor.RGB = lngAccent2 
 .Shapes(3).Fill.ForeColor.RGB = lngAccent3 
 End With 
 End With 
 
End Sub

В следующем примере в текстовом поле перечислены все цветовые схемы, доступные издателю.

Sub ListColorShemes() 
 
 Dim clrScheme As ColorScheme 
 Dim strSchemes As String 
 
 For Each clrScheme In Application.ColorSchemes 
 strSchemes = strSchemes & clrScheme.Name & vbLf 
 Next 
 ActiveDocument.Pages(1).Shapes.AddTextbox( _ 
 Orientation:=pbTextOrientationHorizontal, _ 
 Left:=72, Top:=72, Width:=400, Height:=500).TextFrame _ 
 .TextRange.Text = strSchemes 
 
End Sub

Свойства

См. также

Справочник по объектной модели издателя

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через