Office Assistant in Excel

[JaredM]

How do I manipulate or at least show and hide the office assistant in the VB portion of Excel/Access/Word/or Powerpoint programs?

[Patoooey]

This works in VB....should be able to modify for VBA useage.

Dim objOffice As New Word.Application
   
   With objOffice.Assistant
      
        '.On = True
        ' set .visble to false to hide while turnning it on.
        ' and then change filename that re-freshes the filename correctly
        
       .Visible = False
       
       '.On = True
        ' assistant filenames end with ACS..the following are
        ' on my system
        '
       .FileName = "d:\msoffice\office\clippit.acs"
       
       .Visible = True
 
       ' possible animations...characters don't accept all of them
 
      '.Animation = msoAnimationAppear
      '.Animation = msoAnimationBeginSpeaking
      '.Animation = msoAnimationCharacterSuccessMajor
      '.Animation = msoAnimationCheckingSomething
      '.Animation = msoAnimationDisappear
      '.Animation = msoAnimationEmptyTrash
      '.Animation = msoAnimationGestureDown
      '.Animation = msoAnimationGestureLeft
      '.Animation = msoAnimationGestureRight
      '.Animation = msoAnimationGestureUp
      '.Animation = msoAnimationGetArtsy
      '.Animation = msoAnimationGetAttentionMajor
      '.Animation = msoAnimationGetAttentionMinor
      '.Animation = msoAnimationGetTechy
      '.Animation = msoAnimationGetWizardy
      '.Animation = msoAnimationGoodbye
      '.Animation = msoAnimationGreeting
      '.Animation = msoAnimationIdle
      '.Animation = msoAnimationListensToComputer
      '.Animation = msoAnimationLookDown
      '.Animation = msoAnimationLookDownLeft
      '.Animation = msoAnimationLookDownRight
      '.Animation = msoAnimationLookLeft
      '.Animation = msoAnimationLookRight
      '.Animation = msoAnimationLookUp
      '.Animation = msoAnimationLookUpLeft
      '.Animation = msoAnimationLookUpRight
      '.Animation = msoAnimationPrinting
      '.Animation = msoAnimationRestPose
      '.Animation = msoAnimationSaving
      '.Animation = msoAnimationSearching
      '.Animation = msoAnimationSendingMail
      '.Animation = msoAnimationThinking
      '.Animation = msoAnimationWorkingAtSomething
      .Animation = msoAnimationWritingNotingSomething
      
      
      Sleep 5000
      
      .Animation = msoAnimationSendingMail
       
      Sleep 5000
            
      .Animation = msoAnimationCharacterSuccessMajor
      
      Sleep 5000
            
      .Visible = False
      .On = False
   End With
   
   Set objOffice = Nothing