Clase ColorScheme (PowerPoint VBA)

La clase ColorScheme representa una combinación de colores, que consiste en un conjunto de ocho colores utilizados para los distintos elementos de una diapositiva, de una página de notas o de un documento, como el título o el fondo. Recuerde que las combinaciones de colores de las diapositivas, páginas de notas y documentos de una presentación pueden establecerse de forma independiente.

Set

Para usar una variable de clase ColorScheme, primero debe ser instanciado, por ejemplo

Dim cse as ColorScheme
Set cse = ActivePresentation.ColorSchemes(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase ColorScheme : ColorSchemes.Item, ColorSchemes.Add, Master.ColorScheme, Slide.ColorScheme, SlideRange.ColorScheme y Presentation.ColorSchemes

Colors

Devuelve un objeto RGBColor que representa un color único de una combinación de colores.

Sintaxis : expression.Colors (SchemeColor)

SchemeColor: Color individual de la combinación de colores especificada.

Dim rgbColors As RGBColor
Set rgbColors = ActivePresentation.ColorSchemes(1).Colors(SchemeColor:=ppAccent1)

Count

Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActivePresentation.ColorSchemes(1).Count

Delete

Elimina el objeto ColorScheme especificado.

ActivePresentation.ColorSchemes(1).Delete

Parent

Devuelve el objeto primario del objeto especificado.

ColorSchemes.Add

Agrega una combinación de colores a la colección de las combinaciones disponibles. Devuelve un objeto ColorScheme que representa la combinación de colores agregada.

La nueva combinación de colores está creada a partir de los colores usados en la diapositiva o patrón especificados, o de los colores de la combinación especificada de una presentación abierta. La colección ColorSchemes puede contener hasta 16 combinaciones de colores. Si necesita agregar otra combinación de colores y la colección ColorSchemes ya está lleno, utilice el método Delete para quitar una combinación de colores existente. Tenga en cuenta que, aunque Microsoft PowerPoint comprueba automáticamente si una combinación de colores ya existe cuando el usuario intenta agregarla mediante la interfaz de usuario, PowerPoint no comprueba si el usuario intenta agregar la combinación de colores mediante programación. El procedimiento del usuario deberá encargarse de la comprobación para evitar combinaciones de colores repetidas.

Sintaxis : expression.Add (Scheme)

Scheme: La combinación de colores que se va a agregar. Puede ser un objeto ColorScheme de cualquier diapositiva o patrón o un elemento de la colección ColorSchemes de cualquier presentación abierta. Si se omite este parámetro, se usa el primer objeto ColorScheme (la primera combinación de colores estándar) en la colección ColorSchemes de la presentación especificada.

Dim cse As ColorScheme
Set cse = ActivePresentation.ColorSchemes.Add()

ColorSchemes.Count

Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActivePresentation.ColorSchemes.Count

ColorSchemes.Item

Devuelve un único objeto ColorScheme de la colección ColorSchemes especificada.

Sintaxis : expression.Item (Index)

Index: Número de índice del objeto ColorScheme de la colección que se va a devolver.

Dim cse As ColorScheme
Set cse = ActivePresentation.ColorSchemes(Index:=1)

ColorSchemes.Parent

Devuelve el objeto primario del objeto especificado.