全部显示

Active 属性

       

返回指定的窗格或窗口是否处于激活的状态。只读。MsoTriState 类型。

expression.Active

expression  必选。该表达式返回“应用于”列表中的对象之一。

示例

本示例检查演示文稿文件“test.ppt”是否位于当前窗口。如果不是,则将当前处于激活状态的演示文稿的名称保存在变量 oldWin 中,并激活“test.ppt”演示文稿。

With Application.Presentations("test.ppt").Windows(1)
    If Not .Active Then
        Set oldWin = Application.ActiveWindow
        .Activate
    End If
End With