Compartir a través de


Evento Application.ColorSchemeChanged (PowerPoint)

Se produce cuando se modifica una combinación de colores.

Sintaxis

expresión. ColorSchemeChanged( _SldRange_ )

expresión Variable que representa un objeto Application.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
SldRange Obligatorio SlideRange Intervalo de diapositivas a las que afecta el cambio.

Comentarios

Las acciones que desencadenan este evento pueden ser del tipo modificar la combinación de colores de una diapositiva o del patrón de diapositivas o aplicar una plantilla.

Para obtener acceso a los eventos de aplicación, declare una variable de aplicación en la sección de declaraciones generales del código. A continuación, establezca a la variable igual al objeto de la aplicación para la que desea tener acceso a eventos. Para obtener información sobre cómo usar eventos con el objeto Application de Microsoft PowerPoint, vea Procedimiento para usar eventos con el objeto Application.

Ejemplo:

En este ejemplo se muestra un mensaje cuando se cambia la combinación de colores de la diapositiva o diapositivas seleccionadas. En este ejemplo se supone que se ha declarado un objeto Application denominado PPTApp mediante el uso de la palabra clave WithEvents.

Private Sub PPTApp_ColorSchemeChanged(ByVal SldRange As SlideRange)



    If SldRange.Count = 1 Then

        MsgBox "You've changed the color scheme for " _
            & SldRange.Name & "."

    Else

        MsgBox "You've changed the color scheme for " _
            & SldRange.Count & " slides."

    End If

End Sub

Vea también

Objeto Application

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.