Name

Application.Assistant

Synopsis

Returns a reference to the annoying Office Assistant character . For example, the following code displays the assistant and then animates its departure:

Sub TestAssistant(  )
     Application.Assistant.Visible = True
     With Application.Assistant.NewBalloon
        .Text = "Ciao for now!"
        .Show
     End With
     Application.Assistant.Animation = msoAnimationGetArtsy
     Application.Assistant.Animation = msoAnimationGoodbye
End Sub

As of Office 2003, the assistant is no longer installed by default.

Get Programming Excel with VBA and .NET now with O’Reilly online learning.

O’Reilly members experience live online training, plus books, videos, and digital content from 200+ publishers.