by Anonymous (267 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 16th March 1999
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Animate the Microsoft Office Assistant.
VBcoders
'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.
