Assistant Property

expression.Assistant

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

The following example uses the Assistant property of the Application object to manipulate various properties and methods of the Assistant object.

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