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

Статья
04/07/2023

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

Замечания

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

Используйте свойство Item , чтобы вернуть определенную цветовую схему из коллекции ColorSchemes . Аргумент Index свойства Item может быть номером или именем цветовой схемы или константой PbColorScheme .

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

Пример

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

Sub CountColorSchemes() 
 MsgBox Application.ColorSchemes.Count 
End Sub

В следующем примере цветовая схема активной публикации задает значение Wildflower.

Sub SetColorScheme() 
 ActiveDocument.ColorScheme _ 
 = ColorSchemes.Item(pbColorSchemeWildflower) 
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 и обратная связь.

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