Evento Application.ColorSchemeChanged (PowerPoint)
Ocorre depois que um esquema de cores é alterado.
Sintaxe
expression. ColorSchemeChanged( _SldRange_ )
expressão Uma variável que representa um objeto Application.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| SldRange | Obrigatório | SlideRange | A faixa de slides afetada pela alteração. |
Comentários
Ações que acionassem este evento incluiriam ações como modificar o esquema de cores de um slide ou de um slide mestre, ou aplicar um modelo.
Para acessar os eventos do aplicativo, declare uma variável de aplicativo, na seção Declaração geral do seu código. Em seguida, defina a variável igual ao objeto de aplicativo para o qual você deseja acessar eventos. Para obter mais informações sobre o uso de eventos com o objeto Application do Microsoft PowerPoint, consulte Como usar eventos com o objeto Application.
Exemplo
Este exemplo exibe uma mensagem quando o esquema de cores do slide selecionado ou slides é alterado. Este exemplo supõe que um objeto Application chamado PPTApp foi declarado usando a palavra-chave 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
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.