• Home
 · 
• Miscellaneous
 · 
• Animate the Microsoft Office Assistant.

Animate the Microsoft Office Assistant.

Animate the Microsoft Office Assistant.

Rate Animate the Microsoft Office Assistant.

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

'2) Add a command button to a form
'3) Add all code below to the form

Function myassist(hlpheading As String, hlptext As String, animate As String)
    Dim xl As Excel.Application
    On Error Resume Next
    Set xl = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then 'excel is not running
        Set xl = CreateObject("Excel.Application")
    End If
    xl.WindowState = xlMinimized
    xl.Application.Visible = True
    With xl.Assistant.NewBalloon
        .heading = hlpheading
        .Text = hlptext
        .Animation = animate
        .Show
    End With
End Function

Private Sub Command1_Click()
	x = myassist("This is where you will have heading", "This is where you will have Actual Help Text","msoAnimationWritingNotingSomething")
End Sub

'Here is a list of animations
'msoAnimationAppear, msoAnimationBeginSpeaking, msoAnimationCharacterSuccessMajor,
'msoAnimationCheckingSomething, msoAnimationDisappear, msoAnimationEmptyTrash,
'msoAnimationGestureDown, msoAnimationGestureLeft, msoAnimationGestureRight,
'msoAnimationGestureUp,msoAnimationGetArtsy, msoAnimationGetAttentionMajor,
'msoAnimationGetAttentionMinor, msoAnimationGetTechy, msoAnimationGetWizardy,
'msoAnimationGoodBye, msoAnimationListenstoComputer, msoAnimationPrinting,
'msoAnimationSaving, msoAnimationSearching, msoAnimationSendingMail, msoAnimationThinking,
'msoAnimationWritingNotingSomething.