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.