Compartir a través de


Objeto ColorSchemes (Publisher)

Una colección de todos los ColorScheme objetos de Microsoft Publisher. Cada objeto ColorScheme representa una combinación de colores, que es un conjunto de colores que se utilizan en una publicación.

Observaciones

Utilice el recuento propiedad para devolver el número de combinaciones de colores disponibles en Publisher.

Utilice la propiedad Item para devolver un esquema de color específico de la colección ColorSchemes. El argumento Index de la propiedad Item puede ser el número o el nombre de la combinación de colores o una constante PbColorScheme .

Utilice el nombre propiedad para devolver un nombre de esquema de color.

Ejemplo

En el ejemplo siguiente se muestra el número de combinaciones de colores.

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

En el siguiente ejemplo se establece la combinación de colores de la publicación activa a flor silvestre.

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

El ejemplo siguiente muestra en un cuadro de texto de todas las combinaciones de colores disponibles en 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

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.