How can i use Office Assistant and Balloons in 2007?

  • Thread starter Thread starter needurgenthelp
  • Start date Start date
N

needurgenthelp

Hey folks, can anyone tell me how to re-activate the office assistant in
Excel 2007-I mean the Assistant has only been deprecated (hidden) so there
must be a way to 'unhide' that thing. Alternatively, can anyone shed any
light on what else can be used instead of balloons to let users make a
selection (i.e. chose printer) ?!?! Any help would be highly appreciated!!!!!
 
Hi Tim,

thanks for that but it is not exactly what I'm looking for- i need something
that returns different values based on the user's decision similar to the
balloons on earlier excel versions
 
Hi I use this
Public Function ErrAssistant(strError As String)
'
With Application.Assistant
.On = True
.Visible = True
.FileName = "Merlin.acs"
.Sounds = True
.Animation = msoAnimationBeginSpeaking
End With

Set bln = Application.Assistant.NewBalloon
With bln
.Heading = "VQ Error Reporting"
.Text = strError
.Show
End With
Application.Assistant.Visible = False
[A1].Select
End Function
Sub test()

With Application.Assistant
.FileName = "Merlin.acs"
.On = True
.Animation = msoAnimationGreeting
.AssistWithHelp = True
.GuessHelp = True
.FeatureTips = False
.Visible = True
End With

End Sub

Public Function myAssistant()
'
Dim bln
With Application.Assistant
.On = True
.Visible = True
.FileName = "Merlin.acs"
.Sounds = True
.Animation = msoAnimationBeginSpeaking
.Top = 650
.Left = 910
End With

Set bln = Application.Assistant.NewBalloon
With bln
.Heading = "PUR Menu"
.Text = "Link has been Re-established"

.Show
End With
Application.Assistant.Visible = False
End Function
 
Hey mate, thanks! Unfortunatelly, it doesn't work or I'm doing something
wrong- it always comes up with

run-tine error' -2147467259(80004005)
Automation Error
Unspecified Error

any leads on that?!?!

Greets
Pat

vqthomf said:
Hi I use this
Public Function ErrAssistant(strError As String)
'
With Application.Assistant
.On = True
.Visible = True
.FileName = "Merlin.acs"
.Sounds = True
.Animation = msoAnimationBeginSpeaking
End With

Set bln = Application.Assistant.NewBalloon
With bln
.Heading = "VQ Error Reporting"
.Text = strError
.Show
End With
Application.Assistant.Visible = False
[A1].Select
End Function
Sub test()

With Application.Assistant
.FileName = "Merlin.acs"
.On = True
.Animation = msoAnimationGreeting
.AssistWithHelp = True
.GuessHelp = True
.FeatureTips = False
.Visible = True
End With

End Sub

Public Function myAssistant()
'
Dim bln
With Application.Assistant
.On = True
.Visible = True
.FileName = "Merlin.acs"
.Sounds = True
.Animation = msoAnimationBeginSpeaking
.Top = 650
.Left = 910
End With

Set bln = Application.Assistant.NewBalloon
With bln
.Heading = "PUR Menu"
.Text = "Link has been Re-established"

.Show
End With
Application.Assistant.Visible = False
End Function



needurgenthelp said:
Hey folks, can anyone tell me how to re-activate the office assistant in
Excel 2007-I mean the Assistant has only been deprecated (hidden) so there
must be a way to 'unhide' that thing. Alternatively, can anyone shed any
light on what else can be used instead of balloons to let users make a
selection (i.e. chose printer) ?!?! Any help would be highly appreciated!!!!!
Click to expand...
Click to expand...
 
Hi if you search the help file for NewBalloon or Balloon you should get all
the help you need.
Regards

needurgenthelp said:
Hey mate, thanks! Unfortunatelly, it doesn't work or I'm doing something
wrong- it always comes up with

run-tine error' -2147467259(80004005)
Automation Error
Unspecified Error

any leads on that?!?!

Greets
Pat

vqthomf said:
Hi I use this
Public Function ErrAssistant(strError As String)
'
With Application.Assistant
.On = True
.Visible = True
.FileName = "Merlin.acs"
.Sounds = True
.Animation = msoAnimationBeginSpeaking
End With

Set bln = Application.Assistant.NewBalloon
With bln
.Heading = "VQ Error Reporting"
.Text = strError
.Show
End With
Application.Assistant.Visible = False
[A1].Select
End Function
Sub test()

With Application.Assistant
.FileName = "Merlin.acs"
.On = True
.Animation = msoAnimationGreeting
.AssistWithHelp = True
.GuessHelp = True
.FeatureTips = False
.Visible = True
End With

End Sub

Public Function myAssistant()
'
Dim bln
With Application.Assistant
.On = True
.Visible = True
.FileName = "Merlin.acs"
.Sounds = True
.Animation = msoAnimationBeginSpeaking
.Top = 650
.Left = 910
End With

Set bln = Application.Assistant.NewBalloon
With bln
.Heading = "PUR Menu"
.Text = "Link has been Re-established"

.Show
End With
Application.Assistant.Visible = False
End Function



needurgenthelp said:
Hey folks, can anyone tell me how to re-activate the office assistant in
Excel 2007-I mean the Assistant has only been deprecated (hidden) so there
must be a way to 'unhide' that thing. Alternatively, can anyone shed any
light on what else can be used instead of balloons to let users make a
selection (i.e. chose printer) ?!?! Any help would be highly appreciated!!!!!
Click to expand...
Click to expand...
Click to expand...
 
I use this to show comments from a column in a listview when the record is
clicked.
Private Sub chkViewSIP_Click()
'

With Application.Assistant
.FileName = "Merlin.acs"
.FileName = "Merlin.acs"
.On = chkViewSIP.Value
.Animation = msoAnimationGreeting
.AssistWithHelp = True
.GuessHelp = True
.FeatureTips = False
.Visible = chkViewSIP.Value 'Put your text here
End With

End Sub
Try this

needurgenthelp said:
Hey mate, thanks! Unfortunatelly, it doesn't work or I'm doing something
wrong- it always comes up with

run-tine error' -2147467259(80004005)
Automation Error
Unspecified Error

any leads on that?!?!

Greets
Pat

vqthomf said:
Hi I use this
Public Function ErrAssistant(strError As String)
'
With Application.Assistant
.On = True
.Visible = True
.FileName = "Merlin.acs"
.Sounds = True
.Animation = msoAnimationBeginSpeaking
End With

Set bln = Application.Assistant.NewBalloon
With bln
.Heading = "VQ Error Reporting"
.Text = strError
.Show
End With
Application.Assistant.Visible = False
[A1].Select
End Function
Sub test()

With Application.Assistant
.FileName = "Merlin.acs"
.On = True
.Animation = msoAnimationGreeting
.AssistWithHelp = True
.GuessHelp = True
.FeatureTips = False
.Visible = True
End With

End Sub

Public Function myAssistant()
'
Dim bln
With Application.Assistant
.On = True
.Visible = True
.FileName = "Merlin.acs"
.Sounds = True
.Animation = msoAnimationBeginSpeaking
.Top = 650
.Left = 910
End With

Set bln = Application.Assistant.NewBalloon
With bln
.Heading = "PUR Menu"
.Text = "Link has been Re-established"

.Show
End With
Application.Assistant.Visible = False
End Function



needurgenthelp said:
Hey folks, can anyone tell me how to re-activate the office assistant in
Excel 2007-I mean the Assistant has only been deprecated (hidden) so there
must be a way to 'unhide' that thing. Alternatively, can anyone shed any
light on what else can be used instead of balloons to let users make a
selection (i.e. chose printer) ?!?! Any help would be highly appreciated!!!!!
Click to expand...
Click to expand...
Click to expand...
 
Back
Top