Assistant 屬性

使用 Assistant 屬性可以返回對 Assistant 對象的引用。Assistant 為只讀對象。

expression.Assistant

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達式。

示例

以下示例使用 Application 對象的 Assistant 屬性來操縱 Assistant 對象的各種屬性和方法。

Public Sub AnimateAssistant()

    Dim blnState As Boolean

    With Assistant

        ' Save Assistant's visible state.

        blnState = .Visible

        ' Make Assistant visible.

        If blnState = False Then .Visible = True

        ' Animate Assistant.

        .Animation = msoAnimationAppear

        ' Display Assistant object's Item and FileName properties.

        MsgBox "Hello, my name is " & .Item & ". I live in " & _

.FileName, , "Assistant Information:"

        ' Return Assistant's visible state to original setting.

        .Visible = blnState

    End With

End Sub