Hello All,
I saw a message here about controlling the assistant and have help ballons appear for a cell. But I cannot find any further details or a step by step how to do this. My excel skills are light.
Can someone Help?
Thanks
Hello All,
I saw a message here about controlling the assistant and have help ballons appear for a cell. But I cannot find any further details or a step by step how to do this. My excel skills are light.
Can someone Help?
Thanks
Hi osros and welcome,
Here is some code that will display a balloon.
OPen VBE , ALT+F11, and add a code module.
Then copy this code into it.
Sub ShowHelp()
Dim BalMsg As Balloon
Dim intChoice As Integer
Dim strReply As String
Set BalMsg = Assistant.NewBalloon
With BalMsg
.Animation = msoAnimationGetAttentionMajor
.Mode = msoModeAutoDown
.Icon = 4
.BalloonType = 0
.Heading = "J & R Excel Solutions"
.Text = "Hello " & Application.UserName & " can you help?"
.Labels(1).Text = "Get a banana."
.Labels(2).Text = "Find Tarzan."
.Labels(3).Text = "Gone fishing"
.Labels(4).Text = "Whatzup Doc?."
.Button = 1
intChoice = .Show
Select Case intChoice
Case 0
strReply = "Are you just clicking me for fun, " & Application.UserName
Case 1
strReply = "Thanks, " & Application.UserName & ", but I prefer a beer!"
Case 2
strReply = "Go find him yourself, lazy"
Case 3
strReply = "Haven't you got work to do?"
Case 4
strReply = "Nothing, just chillin...."
Case Else
strReply = "Nothing doing?"
End Select
End With
MsgBox strReply, vbInformation
End Sub
Display More
If you need further help post back.
Cheers
Andy
Thanks very much!
I added the code, but cant figure out how to get it to work. Im still playing with it.
If you have added the code you should now be able to see ShowHelp as a macro you can run.
ALT+F8 to display a list of available macros.
Eventually you will run the macro by assigning the macro to a button or possibly a cell selection.
But lets take it one step at a time
Cheers
Andy
Yep Thats works thanks! My main need to be specific is when I click in a Cell I get the balloon message I selected for that cell.
Have anything already made for that? :wink1:
You need to put some code in the worksheet selection event.
Right click the sheet tab and paste select View code.
Post the following in to the code module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
ShowHelp
End If
End Sub
Now everytime you return to the cell A1 the help ballon should display.
Cheers
Andy
Thanks so much for the help we are getting there Im playing with both codes together.
The final thing is when I click in the cell I need it to display my message like help for that cell without the list of choices and so forth. Im playing with it but getting funky results.
I know Im being a pain by now, I got to ad VB to my list of things to do before I die.
Thanks
In my metal pants I feel no pain :lol:
So, what do you want to display when you select A1? Do you have different text for B1.
Cheers
Andy
Exactly, I need to select several cells that when you click on it, it will display my message I set for that cell with the office assistant.
I also got a couple more to do's on this same project, If I can run them by you ? :o
Certainly,
Just post your questions and WE can try and help.
Cheers
Andy
Don’t have an account yet? Register yourself now and be a part of our community!