WorkbookActivate 事件

       

当激活任一工作簿时产生此事件。

Private Sub app_WorkbookActivate(ByVal Wb As Workbook)

app   在类模块中带有事件声明的 Application 类型对象。有关详细信息,请参阅 Application 对象事件的用法

Wb   激活的工作簿。

示例

当激活一个工作簿时,本示例对所有打开的窗口进行排列。

Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
    Application.Windows.Arrange xlArrangeStyleTiled
End Sub