Compartilhar via

Objeto ColorScheme (Publisher)

  • Artigo

Representa um esquema de cores, que é um conjunto de oito cores usadas para os diferentes elementos de uma publicação. Cada cor é representada por um ColorFormat objeto.

O objeto ColorScheme é um membro do ColorSchemes coleção. A coleção ColorSchemes contém todos os esquemas de cores disponíveis para o Microsoft Publisher.

Comentários

Use a propriedade ColorScheme do objeto Document para retornar o esquema de cores da publicação atual.

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

Exemplo

O exemplo a seguir define o valor de preenchimento de três formas na primeira página para o valor de retorno (no formato RGB) de três das oito cores 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

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.