PowerPoint VBA教程:ColorSchemeChanged事件

配色方案更改后发生此事件。

Private Sub object_ColorSchemeChanged(ByVal SldRange As SlideRange)

object 变量。该变量引用在类模块中以事件方式声明的Application 类型的对象。

SldRange 受更改影响的幻灯片范围。

说明

触发此事件的操作包括诸如修改幻灯片或幻灯片母版的配色方案或应用模板之类的操作。

若要访问 Application事件,请在代码的通用声明部分中声明一个 Application 变量。然后将此变量设置为要访问其事件的 Application对象。有关使用 Microsoft PowerPoint Application对象事件的信息,请参阅使用 Application对象的事件

VBA示例

本示例在选定的单个或多个幻灯片的配色方案更改后显示一个消息。本示例假定一个称为 PPTApp 的 Application对象已使用 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

上页:PowerPoint VBA教程:关于与语言相关的信息 下页:PowerPoint VBA教程:NewPresentation事件

PowerPoint VBA教程:ColorSchemeChanged事件

PowerPoint VBA教程:NewPresentation事件 PowerPoint VBA教程:PresentationBeforeSave事件
PowerPoint VBA教程:PresentationClose事件 PowerPoint VBA教程:PresentationNewSlide事件
PowerPoint VBA教程:PresentationOpen事件 PowerPoint VBA教程:PresentationPrint事件
PowerPoint VBA教程:PresentationSave事件 PowerPoint VBA教程:SlideSelectionChanged事件
PowerPoint VBA教程:SlideShowBegin事件 PowerPoint VBA教程:SlideShowEnd事件
PowerPoint VBA教程:SlideShowNextBuild事件 PowerPoint VBA教程:SlideShowNextClick事件
PowerPoint VBA教程:SlideShowNextSlide事件 PowerPoint VBA教程:WindowActivate事件
PowerPoint VBA教程:WindowBeforeDoubleClick事件 PowerPoint VBA教程:WindowBeforeRightClick事件
PowerPoint VBA教程:WindowDeactivate事件 PowerPoint VBA教程:WindowSelectionChange事件
PowerPoint VBA教程:隐藏的语言元素 PowerPoint VBA教程:在文档中添加控件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号