Compartilhar via


Objeto ColorSchemes (Publisher)

Uma coleção de todos os ColorScheme objetos no Microsoft Publisher. Cada objeto ColorScheme representa um esquema de cores, que é um conjunto de cores que são usadas em uma publicação.

Comentários

A contagem de uso propriedade para retornar o número de esquemas de cores disponíveis para o Publisher.

Use a propriedade Item para retornar um esquema de cores específico da coleção ColorSchemes. O argumento Index da propriedade Item pode ser o número ou o nome do esquema de cores ou uma constante PbColorScheme .

Use o nome propriedade para retornar o nome de um esquema de cores.

Exemplo

O exemplo a seguir exibe o número de esquemas de cores.

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

O exemplo a seguir define o esquema de cores da publicação ativa como Wildflower.

Sub SetColorScheme() 
 ActiveDocument.ColorScheme _ 
 = ColorSchemes.Item(pbColorSchemeWildflower) 
End Sub

O exemplo a seguir lista em uma caixa de texto todos os esquemas de cores disponíveis para o Publisher.

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

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.