Balloons in Word

[Hutch]

Does anyone know how to make a Balloon pop-up over a certain text when you mouse over it? The ballon would contain predetermed text. Any help would be great thanks.

[sgrec7]

Does anyone know how to make a Balloon pop-up over a certain text when you mouse over it? The ballon would contain predetermed text. Any help would be great thanks.

ok i think this is what your after (BTW im using terminology that is a mix of VB 6 and VB.net)

Private Sub label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles label1.MouseHover
[INDENT]picturebox1.visible = true[/INDENT]
[INDENT]picturebox1.top = label1.top [/INDENT][INDENT]picturebox1.left = label1.left[/INDENT]

end sub

(picture1 is the balloon)

(label1 is the writing that you hover over)

you would then have to set something up to make the balloon disappear (like a button or something)

(that was mainly VB.net speak)

sgrec7

[Hutch]

ok i think this is what your after (BTW im using terminology that is a mix of VB 6 and VB.net)

Private Sub label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles label1.MouseHover
[INDENT]picturebox1.visible = true[/INDENT]
[INDENT]picturebox1.top = label1.top [/INDENT][INDENT]picturebox1.left = label1.left[/INDENT]

end sub

(picture1 is the balloon)

(label1 is the writing that you hover over)

you would then have to set something up to make the balloon disappear (like a button or something)

(that was mainly VB.net speak)

sgrec7

This code is not working, here is what i am doing


Private Sub label1_MouseHov er(ByVal sender As Object, ByVal e As System.EventArg s)

Handles label1.mousehov er

If label1 = "SpecSales" Then
Picturebox1 = "Test"

Picturebox1.Vis ible = True
Picturebox1.Top = label1.Top
Picturebox1.Lef t = label1.Left
End Sub

[Martin2007]

This code is not working, here is what i am doing


Private Sub label1_MouseHov er(ByVal sender As Object, ByVal e As System.EventArg s)

Handles label1.mousehov er

If label1 = "SpecSales" Then
Picturebox1 = "Test"

Picturebox1.Vis ible = True
Picturebox1.Top = label1.Top
Picturebox1.Lef t = label1.Left
End Sub

If you are using VB.net then can you not just add a tool tip, which will do all this for you? Tho i think it will only allow text to appear as the balloon?

[Hutch]

I am just using VBA, and i have no idea what a tool tip is?

[Ali Rizwan]

Does anyone know how to make a Balloon pop-up over a certain text when you mouse over it? The ballon would contain predetermed text. Any help would be great thanks.

Hi
Try this one it will help u a lot.Custom Tool Tip

[sgrec7]

sorry mate, i thought that you meant a picture of a balloon, (not a balloon tip) ;-(

na im sorry, i don't know anything about balloon tips

sorry for the mix around

sgrec7

[pureenhanoi]

Does anyone know how to make a Balloon pop-up over a certain text when you mouse over it? The ballon would contain predetermed text. Any help would be great thanks.

Open Microsoft Word.
Select Help > Show the Office Assistant
If you cant see the Assistant appears, then you must install Office assistant again.
Create a new document.
From Tools menu select Macro > Security
Set the security level to Medium or Low.
Press Alt + F11 to open Visual Basic Editor.
Write down this code:
[CODE=vb]
Private Sub Document_Open()
With Assistant.NewBa lloon
.Animation = msoAnimationApp ear
.Text = "hello world"
.Labels(1).Text = "Click me"
.Labels(2).Text = "No, click me"
.Show
End With
End Sub
[/CODE]
Save the code.
Close Visual Basic Editor
From winword, save new document to c:\doc1.doc
Close winword.
Open doc1.doc again, and you will see the Ballon appears