Animate the Microsoft Office Assistant.
Animate the Microsoft Office Assistant.
Rate Animate the Microsoft Office Assistant.
(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.
Animate the Microsoft Office Assistant. Comments
No comments yet — be the first to post one!
Post a Comment