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.