全部显示

WindowSelectionChange 事件

当活动文档窗口中选取的文本、形状或幻灯片发生更改时（通过用户界面或通过代码），会发生此事件。

application   Application 类型的对象，在类模块中声明，自身具有事件。有关使用 Application 对象的事件的详细信息，请参阅使用 Application 对象的事件。

Sel   代表选取的对象。

示例

本示例确定何时选取另一个幻灯片和更改新选取的幻灯片的背景色。

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
    With Sel
        If .Type = ppSelectionNone Then
            With .SlideRange(1)
                .ColorScheme.Colors(ppBackground).RGB = _
                    RGB(240, 115, 100)
            End With
        End If
    End With
End Sub