Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Show TooltipText of a new menu in VBE

Status
Not open for further replies.
Hellboy007

Hellboy007

Technical User
Joined
Jul 8, 2005
Messages
14
Location
CA
Hi

I have created a New Menu in VBE. I know in VBE, that to be able to Run the macro associated with this menu (OnAction), you need to create class module that dectect the events Click of that menu to run the Action.

But, not being qualified enought (yet), i think you have to do the same king of procedure, but i dont know how.

I thing it has some thing related with the mouse but dont know were to start.

So any information on the subject, will be greatly appreciated.

Thank's

Philippe
 
Sort by date Sort by votes
Code: 
Dim Mnu as CommandBarControl
Set Mnu = Application.VBE.CommandBars(1).Controls.Add(Type:= _
         msoControlPopup, temporary:=True)
With Mnu
  .Caption = "TestVBE"
  .TooltipText = "Test Tooltip !!!"
End With

Fane Duru
 
Upvote 0 Downvote
Hi Fane Guru

Sorry for the lateness of my reply. (vacation)

I have done what you gave me for advise. But the Tooltip text wont pup up.

This is my menu code:

Dim MyBarXLD As CommandBar
Dim MyMenubarXL As CommandBar

Dim Menu As CommandBarControl
Dim CmdItemA As CommandBarControl
Dim CmdItem2A As CommandBarControl
Dim CmdItem2B As CommandBarControl
Dim CmdItem2C As CommandBarControl
Dim CmdItem2D As CommandBarControl
Dim CmdItem2E As CommandBarControl
Dim CmdItem2F As CommandBarControl
Dim CmdItem2G As CommandBarControl
Dim CmdItem3A As CommandBarControl
Dim CmdItem3B As CommandBarControl
Dim CmdItem3C As CommandBarControl
Dim CmdItem3D As CommandBarControl

Dim EvtHandlers As New Collection

Dim MnuEvtCodeCopie As VBECmdHandler
Dim MnuEvtCopieCurseur As VBECmdHandler
Dim MnuEvtFormatCode As VBECmdHandler
Dim MnuEvtCopieSelection As VBECmdHandler
Dim MnuEvtZip As VBECmdHandler
Dim MnuEvtZipVBA As VBECmdHandler
Dim MnuEvtZipSelect As VBECmdHandler
Dim MnuEvtZipCurseur As VBECmdHandler

Public Sub Creer_Bouton()
On Error Resume Next
Application.VBE.CommandBars(1).Controls("MENU_XLD").Delete
Application.CommandBars(1).Controls("WinZip -> To XLD <-").Delete

Set MyMenubarXL = Application.CommandBars(1)
Set Menu = MyMenubarXL.Controls.Add(msoControlButton)
With Menu
.Caption = "WinZip -> To XLD <-"
.BeginGroup = True
.FaceId = 1589
.Style = msoButtonIconAndCaption
.TooltipText = "Zipper un Fichier(WinZip) destiné au forum XLD"
.OnAction = "'" & strXLDFileName & "'" & "!Zip_Only"
End With

Set MyBarXLD = Application.VBE.CommandBars(1)
Set CmdItemA = MyBarXLD.Controls.Add(Type:=msoControlPopup, temporary:=True)
CmdItemA.Caption = "MENU_XLD"

Set CmdItem2A = CmdItemA.Controls.Add(Type:=msoControlPopup, temporary:=True)
CmdItem2A.Caption = "VBA CODE --->"

Set CmdItem3A = CmdItem2A.Controls.Add(msoControlButton)
With CmdItem3A
.Caption = "VBAProject"
.BeginGroup = True
.FaceId = 3040
.Style = msoButtonIconAndCaption
.TooltipText = "Boite de dialogue pour choisir le code destiné au forum XLD"
.OnAction = "'" & strXLDFileName & "'" & "!UsfShow"
End With

Set CmdItem3C = CmdItem2A.Controls.Add(msoControlButton)
With CmdItem3C
.Caption = "Sélection"
.BeginGroup = False
.FaceId = 9986
.Style = msoButtonIconAndCaption
.TooltipText = "Copie votre sélection de code destiné au forum XLD"
.OnAction = "'" & strXLDFileName & "'" & "!Selection"
End With

Set CmdItem3D = CmdItem2A.Controls.Add(msoControlButton)
With CmdItem3D
.Caption = "Curseur"
.BeginGroup = False
.FaceId = 124
.Style = msoButtonIconAndCaption
.TooltipText = "Copie le code Curseur Position"
.OnAction = "'" & strXLDFileName & "'" & "!Curseur"
End With

Set CmdItem3B = CmdItem2A.Controls.Add(msoControlButton)
With CmdItem3B
.Caption = "Présentation"
.BeginGroup = False
.FaceId = 6986
.Style = msoButtonIconAndCaption
.TooltipText = "Changement de la mise en forme du code destiné au forum XLD"
.OnAction = "'" & strXLDFileName & "'" & "!Code_Presentation"
End With

Set CmdItem2B = CmdItemA.Controls.Add(Type:=msoControlPopup, temporary:=True)
CmdItem2B.Caption = "VBA ZIP --->"


Set CmdItem2C = CmdItem2B.Controls.Add(msoControlButton)
With CmdItem2C
.Caption = "Fichier Seulement !"
.BeginGroup = True
.FaceId = 1589
.Style = msoButtonIconAndCaption
.TooltipText = "Creation du fichier Zip et copie du lien"
.OnAction = "'" & strXLDFileName & "'" & "!Zip_Only"
End With

Set CmdItem2D = CmdItem2B.Controls.Add(Type:=msoControlPopup, temporary:=True)
CmdItem2D.Caption = "Fichier & Code --->"

Set CmdItem2E = CmdItem2D.Controls.Add(msoControlButton)
With CmdItem2E
.Caption = "Fichier + VBAProject"
.BeginGroup = True
.FaceId = 9528
.Style = msoButtonIconAndCaption
.TooltipText = "Creation du fichier Zip & Copie du code & copie du lien"
.OnAction = "'" & strXLDFileName & "'" & "!Zip_VBA"
End With

Set CmdItem2F = CmdItem2D.Controls.Add(msoControlButton)
With CmdItem2F
.Caption = "Fichier + Sélection"
.BeginGroup = True
.FaceId = 9941
.Style = msoButtonIconAndCaption
.TooltipText = "Creation du fichier Zip & Copie du Code sélectionné & copie du lien"
.OnAction = "'" & strXLDFileName & "'" & "!Zip_Selection"
End With

Set CmdItem2G = CmdItem2D.Controls.Add(msoControlButton)
With CmdItem2G
.Caption = "Fichier + Curseur"
.BeginGroup = True
.FaceId = 9254
.Style = msoButtonIconAndCaption
.TooltipText = "Creation du fichier Zip & Copie du Code selon la position du Curseur & copie du lien"
.OnAction = "'" & strXLDFileName & "'" & "!Zip_Curseur"
End With

With Application.VBE.Events
Set MnuEvtCodeCopie = New VBECmdHandler
Set MnuEvtCodeCopie.EvtHandler = .CommandBarEvents(CmdItem3A)
EvtHandlers.Add MnuEvtCodeCopie

Set MnuEvtCopieSelection = New VBECmdHandler
Set MnuEvtCopieSelection.EvtHandler = .CommandBarEvents(CmdItem3C)
EvtHandlers.Add MnuEvtCopieSelection

Set MnuEvtCopieCurseur = New VBECmdHandler
Set MnuEvtCopieCurseur.EvtHandler = .CommandBarEvents(CmdItem3D)
EvtHandlers.Add MnuEvtCopieCurseur

Set MnuEvtFormatCode = New VBECmdHandler
Set MnuEvtFormatCode.EvtHandler = .CommandBarEvents(CmdItem3B)
EvtHandlers.Add MnuEvtFormatCode

Set MnuEvtZip = New VBECmdHandler
Set MnuEvtZip.EvtHandler = .CommandBarEvents(CmdItem2C)
EvtHandlers.Add MnuEvtZip

Set MnuEvtZipVBA = New VBECmdHandler
Set MnuEvtZipVBA.EvtHandler = .CommandBarEvents(CmdItem2E)
EvtHandlers.Add MnuEvtZipVBA

Set MnuEvtZipSelect = New VBECmdHandler
Set MnuEvtZipSelect.EvtHandler = .CommandBarEvents(CmdItem2F)
EvtHandlers.Add MnuEvtZipSelect

Set MnuEvtZipCurseur = New VBECmdHandler
Set MnuEvtZipCurseur.EvtHandler = .CommandBarEvents(CmdItem2G)
EvtHandlers.Add MnuEvtZipCurseur

End With

On Error GoTo 0

End Sub

This is my Class module taht handle my menu:

Public WithEvents EvtHandler As VBIDE.CommandBarEvents

Private Sub EvtHandler_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)
Set VBInstance = Application.VBE
With VBInstance.MainWindow
strNomWorkbook = Trim(Mid(.Caption, InStr(.Caption, "- ") + 2, InStr(.Caption, "[") - InStr(.Caption, "- ") - 2)) '.Filename .BuildFileName .Name
End With
Set VBInstance = Nothing

Application.Run CommandBarControl.OnAction

'
' Indicate to the Events object that we've successfully handled the event.
'
Handled = True
CancelDefault = True

End Sub
 
Upvote 0 Downvote
Hi Hellboy007,

Under Tools > Options > General tab, make sure Show Tooltips is checked.

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[
 
Upvote 0 Downvote
Hi Tony

Thank's for your answer.

It was a good idea to verify that. Unfortunely, it was already enable. So no change in my problem.

Thank's again

Philippe
 
Upvote 0 Downvote
Hi Philippe,

OK, I ran your code and the good news is that your tooltips are all correctly set.

Unfortunately, as far as I know, they don't show on popup menu items and I don't think there's anything you can do about it.

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[
 
Upvote 0 Downvote
Hi Tony

Wow! Thank's for your time, and trying to help me.
I wish there was some way, but....

Thank,s

Philippe
 
Upvote 0 Downvote
The tooltips look to work only at the first level of the tree... I mean only "Zipper un Fichier(WinZip) destiné au forum XLD" has to be shown. Isn't it?

Fane Duru
 
Upvote 0 Downvote
Hi Fane Duru

"I mean only "Zipper un Fichier(WinZip) destiné au forum XLD" has to be shown. Isn't it? "

Yes, this one work's(menu in excel) but unfortunately not the one in VBE.

Philippe
 
Upvote 0 Downvote
Hi Hellboy007,
In my case it works in VBE, too. I tried it.
Fane Duru
 
Upvote 0 Downvote
Hi Fane Duru

Thank's for the feeback.

Wich version of windows and wich version of Office are you using ?


Philippe

p.s. I'm taking time right now to answer the other thread you answered me.
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

R
  • Locked
  • Question Question
reversed words in english leading new english words
Replies
10
Views
1K
Chriss Miller
C
sal21
  • Locked
  • Question Question
scrping in listbox in a web page
Replies
0
Views
759
sal21
sal21
Submeg
  • Locked
  • Question Question
Selecting shapes based on its name and then arranging them in a circle
Replies
2
Views
460
Andrzejek
Andrzejek
IcarusHallsorts
  • Locked
  • Question Question
I have a column of data in Column A
Replies
3
Views
733
Andrzejek
Andrzejek
Andrzejek
  • Locked
  • Question Question
Hyperlinks in Word cut at #
Replies
2
Views
713
Andrzejek
Andrzejek

Part and Inventory Search

Sponsor

Back
Top