Greetings:

I've inherited an Excel application that I need to debug. One of the
remaining things I need to fix is showing tooltips in a custom popup menu. I
have "Show ScreenTips on toolbars" enabled under the "Customize" dialog, but
it isn't as simple as that. Here are the subs that populate the menus:

' Calling procedure
Public Sub PopupMenuAddStaffing()
Dim cbar As CommandBar
Dim ctrl As CommandBarControl
Dim ctrlCut As CommandBarControl
Dim sx As String
Dim iReset As Integer
Dim sTool As String
Dim idx As Integer
On Error GoTo eh
' ---
Call goMenu.PopupMenuDeleteStaffing
Call InsertMainMenuBar

With Application.CommandBars("Cell")
On Error Resume Next
' put a separator bar before the 'Cut' item
iReset = ResetWorkbookExists()
If iReset = 0 Then
.Controls(1).BeginGroup = True ' put a spacer between our menu
and the existing
Else
.Controls(1).BeginGroup = False
End If
End With

' item: SlideCalendar
sTool = "Delete first 7 days and fill to 90 days"
MenuItemAdd CAPSLIDECALENDAR, sTool, 2143, "SlideCalendar", 1, False
MenuSubItemAdd CAPSLIDECALENDAR, sTool, 2143, "SlideCalendar", 1, False

' item: ResetWorkbook
sTool = "Reset staff assignments from Events sheet"
If iReset = 0 Then MenuItemAdd CAPRESETWORKBOOK, sTool, 1709,
"ResetWorkbook", 1, False
MenuSubItemAdd CAPRESETWORKBOOK, sTool, 1709, "ResetWorkbook", 1, False

' item: Print Setup
sTool = "Setup Print Output Sheet"
MenuItemAdd CAPPRINT, sTool, 707, "PrintSheet", 1, False
MenuSubItemAdd CAPPRINT, sTool, 707, "PrintSheet", 1, False

' item: SortEvents
sTool = "Sort Event Rows"
MenuItemAdd CAPSORTEVENTS, sTool, 2170, "SortEvents", 1, False
MenuSubItemAdd CAPSORTEVENTS, sTool, 2170, "SortEvents", 1, False

' item: AddEvent locally
sTool = "Add a new event to this spreadsheet only"
MenuItemAdd CAPADDEVENTLOC, sTool, 2114, "ManualAddEvent", 1, False
MenuSubItemAdd CAPADDEVENT, sTool, 2114, "AddEvent", 1, False

' item: AddEvent
sTool = "Add a new event to EventCal"
MenuItemAdd CAPADDEVENT, sTool, 2114, "AddEvent", 1, True
MenuSubItemAdd CAPADDEVENT, sTool, 2114, "AddEvent", 1, True

' item: Assignment Sheet
' Modified by Brian Matuschak 11/16/05
sTool = "Assign Resources to Event and use to unhide the Assignment sheet"
MenuItemAdd CAPASSIGNSHEET, sTool, 2104, "ShowAssignSheet", 1, False
MenuSubItemAdd CAPASSIGNSHEET, sTool, 2104, "ShowAssignSheet", 1, False

' item: Assign resources
sTool = "Assign Resources to Event"
MenuItemAdd CAPASSIGNRESOURCES, sTool, 1084, "ShowAssignForm", 1, False
MenuSubItemAdd CAPASSIGNRESOURCES, sTool, 1084, "ShowAssignForm", 1, False
' ---
GoTo xt
eh: oEH.PostErr Err, msMODULE, "PopupMenuAddStaffing", Erl
xt: 'PopupMenuAddStaffing
Set ctrl = Nothing
Set cbar = Nothing
End Sub

' Sub to populate the menus with similar code for submenu items
Private Sub MenuItemAdd(sCaption As String, sTool As String, iFace As
Integer, sAction As String, iBefore As Integer, bBeginGroup As Boolean)
With Application.CommandBars("Cell")
With .Controls.Add(msoControlButton, 1, , iBefore, True)
.Caption = sCaption
.TooltipText = sTool
.FaceId = iFace
.OnAction = sAction
.BeginGroup = bBeginGroup
End With
End With
End Sub

Well, I get all my commands and icons to work. Any suggestions about why the
tooltips might not be working?
--
Thanks,
Brian J. Matuschak

Tooltips are not displayed for menu items, only for first level controls on
a commandbar/toolbar.

--
Jim
"Brian J. Matuschak" wrote in
message ...
| Greetings:
|
| I've inherited an Excel application that I need to debug. One of the
| remaining things I need to fix is showing tooltips in a custom popup menu.
I
| have "Show ScreenTips on toolbars" enabled under the "Customize" dialog,
but
| it isn't as simple as that. Here are the subs that populate the menus:
|
| ' Calling procedure
| Public Sub PopupMenuAddStaffing()
| Dim cbar As CommandBar
| Dim ctrl As CommandBarControl
| Dim ctrlCut As CommandBarControl
| Dim sx As String
| Dim iReset As Integer
| Dim sTool As String
| Dim idx As Integer
| On Error GoTo eh
| ' ---
| Call goMenu.PopupMenuDeleteStaffing
| Call InsertMainMenuBar
|
| With Application.CommandBars("Cell")
| On Error Resume Next
| ' put a separator bar before the 'Cut' item
| iReset = ResetWorkbookExists()
| If iReset = 0 Then
| .Controls(1).BeginGroup = True ' put a spacer between our menu
| and the existing
| Else
| .Controls(1).BeginGroup = False
| End If
| End With
|
| ' item: SlideCalendar
| sTool = "Delete first 7 days and fill to 90 days"
| MenuItemAdd CAPSLIDECALENDAR, sTool, 2143, "SlideCalendar", 1, False
| MenuSubItemAdd CAPSLIDECALENDAR, sTool, 2143, "SlideCalendar", 1, False
|
| ' item: ResetWorkbook
| sTool = "Reset staff assignments from Events sheet"
| If iReset = 0 Then MenuItemAdd CAPRESETWORKBOOK, sTool, 1709,
| "ResetWorkbook", 1, False
| MenuSubItemAdd CAPRESETWORKBOOK, sTool, 1709, "ResetWorkbook", 1, False
|
| ' item: Print Setup
| sTool = "Setup Print Output Sheet"
| MenuItemAdd CAPPRINT, sTool, 707, "PrintSheet", 1, False
| MenuSubItemAdd CAPPRINT, sTool, 707, "PrintSheet", 1, False
|
| ' item: SortEvents
| sTool = "Sort Event Rows"
| MenuItemAdd CAPSORTEVENTS, sTool, 2170, "SortEvents", 1, False
| MenuSubItemAdd CAPSORTEVENTS, sTool, 2170, "SortEvents", 1, False
|
| ' item: AddEvent locally
| sTool = "Add a new event to this spreadsheet only"
| MenuItemAdd CAPADDEVENTLOC, sTool, 2114, "ManualAddEvent", 1, False
| MenuSubItemAdd CAPADDEVENT, sTool, 2114, "AddEvent", 1, False
|
| ' item: AddEvent
| sTool = "Add a new event to EventCal"
| MenuItemAdd CAPADDEVENT, sTool, 2114, "AddEvent", 1, True
| MenuSubItemAdd CAPADDEVENT, sTool, 2114, "AddEvent", 1, True
|
| ' item: Assignment Sheet
| ' Modified by Brian Matuschak 11/16/05
| sTool = "Assign Resources to Event and use to unhide the Assignment
sheet"
| MenuItemAdd CAPASSIGNSHEET, sTool, 2104, "ShowAssignSheet", 1, False
| MenuSubItemAdd CAPASSIGNSHEET, sTool, 2104, "ShowAssignSheet", 1, False
|
| ' item: Assign resources
| sTool = "Assign Resources to Event"
| MenuItemAdd CAPASSIGNRESOURCES, sTool, 1084, "ShowAssignForm", 1, False
| MenuSubItemAdd CAPASSIGNRESOURCES, sTool, 1084, "ShowAssignForm", 1,
False
| ' ---
| GoTo xt
| eh: oEH.PostErr Err, msMODULE, "PopupMenuAddStaffing", Erl
| xt: 'PopupMenuAddStaffing
| Set ctrl = Nothing
| Set cbar = Nothing
| End Sub
|
| ' Sub to populate the menus with similar code for submenu items
| Private Sub MenuItemAdd(sCaption As String, sTool As String, iFace As
| Integer, sAction As String, iBefore As Integer, bBeginGroup As Boolean)
| With Application.CommandBars("Cell")
| With .Controls.Add(msoControlButton, 1, , iBefore, True)
| .Caption = sCaption
| .TooltipText = sTool
| .FaceId = iFace
| .OnAction = sAction
| .BeginGroup = bBeginGroup
| End With
| End With
| End Sub
|
| Well, I get all my commands and icons to work. Any suggestions about why
the
| tooltips might not be working?
| --
| Thanks,
| Brian J. Matuschak
|