Assistant Property Example

The following example uses the Assistant property of the Application object to manipulate various properties and methods of the Assistant object. To try this example, paste the following code into the Declarations section of a standard module. Create a reference to the Microsoft Office 9.0 Object Library by using the References dialog box, available by clicking References on the Tools menu. Then click anywhere inside the procedure and press F5 to run it.

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