Dynamic Ribbon Control & Custom Ui Resources

Over the past couple of weeks I took it upon myself to learn how to create a custom ribbonX menu. I didn't find much information about the ribbon extensibilty while searching through the MrExcel message board. I found information to help me out from many different sites.

I have created many traditional commandbar menus in version 2003 through 2007. I still have a long way to go to learn how to interact with the controls on the ribbon, but I finally think I have the basics down.

I want to share the code and resources with all and I hope others could post to this with their resources that helped them.

The following code is an example of a custom UI ribbonX for excel. It shows a new tab, two groups and a few controls. The main focus is a dropdown box that gets dynamically loaded with the names of visible sheets in the workbook. When a user selects one of the names in the dropdown, it activates that sheet. I added VBA code to have the dropdown change the name shown when a user selects a visible sheet using the tabs.

I used two tools to complete the task: The CustomUIEditor from microsoft which I downloaded from here. Do not try to edit a customUI using CustomUIEditor while you have the workbook loaded into excel; if you do, you may lose your work. This is a simple tool for viewing the xml files and creating the callback routines needed by excel. Microsoft needs to put more work into this. I would rather see an editor within the Vsiual Basic editor in Excel.

Andy Pope's RibbonX Visual Designer which can be found here. This is a good tool that is run inside of Excel. It has a preview tool and it shows the built-in icons from MS office. You need to have the workbook unloaded before opening your project.

I just learned over the last week that MS Office 2007 files are nothing more than compressed files containing xml sheets. You can rename a *.xlsm file to a *.zip file and look inside. When you add a custom ribbon to an Excel workbook, it creates a folder in the compressed file called "customUI" and saves a file in that folder called "customUI.xml". My current project is about 40mb large as a .xlsm file. When I unzip it, it becomes over 134mb large. Now I understand why Excel2007 takes so long to load workbooks!



For some reason there are problems showing the xml code in the code window. I will try attach the xml code soon.


Here is the code only related to the dropdown control. Put this into a standard module.

Code:

Option Explicit
'
Public TSNavItems As Integer      'Number of visible sheets (index zero)
Public TSNavArray() As String     'Store names of visible sheets
Public TSNavSelected As String    'Store selected sheet from control
Public TSRibbon As IRibbonUI      'Time Series Custom Ribbon
Public TSWorkbook As Workbook     'Time Series Workbook
Public TrackTSNav As Integer      'Store the current activated sheet index
'
'This counts and loads the visible sheets and chart sheets into the navigation dropdown
Private Sub LoadVisibleNavigate()
'
  Dim shtCount As Long, wksSheet As Worksheet, ChtSheet As Chart
  
  TrackTSNav = 0
  
  'Count all visible worksheets
  shtCount = 0
  For Each wksSheet In TSWorkbook.Worksheets
    If wksSheet.Visible = xlSheetVisible Then
      shtCount = shtCount + 1
    End If
  Next wksSheet
  'Add the visible Chart Sheets
  For Each ChtSheet In TSWorkbook.Charts
    If ChtSheet.Visible = xlSheetVisible Then
      shtCount = shtCount + 1
    End If
  Next ChtSheet
  
  
  'Load all visible worksheets into the Navigation Dropdown array for ribbon
  TSNavItems = shtCount             'index one
  ReDim TSNavArray(TSNavItems - 1)  'index zero
  shtCount = -1
  For Each wksSheet In TSWorkbook.Worksheets
    If wksSheet.Visible = xlSheetVisible Then
      shtCount = shtCount + 1
      TSNavArray(shtCount) = wksSheet.Name
      
      'Set the default index for the dropdown to the current activated sheet
      If wksSheet.Name = ActiveSheet.Name Then TrackTSNav = shtCount
    End If
  Next wksSheet
  'Load the visible Chart Sheets in the dropdown array
  For Each ChtSheet In TSWorkbook.Charts
    If ChtSheet.Visible = xlSheetVisible Then
      shtCount = shtCount + 1
      TSNavArray(shtCount) = ChtSheet.Name
      
      'Set the default index for the dropdown to the current activated sheet
      If ChtSheet.Name = ActiveSheet.Name Then TrackTSNav = shtCount
    End If
  Next ChtSheet
  
  
'
End Sub
'
'This gets called when the workbook loads
Private Sub myRibbon_******(ribbon As IRibbonUI)
   Set TSRibbon = ribbon          'My ribbon
   Call LoadVisibleNavigate       'Load the Navigation dropdown
End Sub
'
'This gets called for every item in the dropdown
'This callback gets called during startup and can be called by using
'invalidateControl (ie. TSRibbon.InvalidateControl("drp_Navigate")
Public Sub drp_Navigate_getItemCount(control As IRibbonControl, ByRef returnedVal)
'
  'The total number of items in the dropdown box (index one based)
  returnedVal = TSNavItems
'
End Sub
'
'This callback gets called during startup automatically.  It can be called by using
'invalidateControl (ie. TSRibbon.InvalidateControl("drp_Navigate")
Public Sub drp_Navigate_getItemID(control As IRibbonControl, index As Integer, ByRef id)
'
  'This is an internal id used by xl.  It must be unique
  id = "TSNavSheets" & index
'
End Sub
'This callback gets called during startup automatically.  It can be called by using
'invalidateControl (ie. TSRibbon.InvalidateControl("drp_Navigate")
Public Sub drp_Navigate_getItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
'
  'returns the name of the sheet
  returnedVal = TSNavArray(index)
 '
End Sub
'
'This callback gets called during startup automatically.  It can be called by using
'invalidateControl (ie. TSRibbon.InvalidateControl("drp_Navigate")
Public Sub drp_Navigate_getSelectedItemIndex(control As IRibbonControl, ByRef returnedVal)
'
  'TrackTSNav is the index of the current selected sheet
  returnedVal = TrackTSNav
'
End Sub
'

'This callback only fires when a user changes the dropdown
Public Sub TS_Navigate_OnAction(control As IRibbonControl, id As String, index As Integer)
'
  TSWorkbook.Activate                 'My workbook
  Sheets(TSNavArray(index)).Activate  'Activate the sheet selected in the dropdown
'
End Sub

Here is the code that needs to be put into the "ThisWorkbook" module.

Code:

 
Private Sub Workbook_Open()
  
  xlVersion = Val(Mid(Application.Version, 1, InStr(Application.Version, ".") - 1))
  'Version 12 = Excel2007
  'Version 11 = Excel2003
  'Version 10 = Excel2000
  'Used to decide if the old commandbar menu is loaded
  
  Set TSWorkbook = ThisWorkbook   'My Workbook
End Sub
 
'
'The Navigation dropdown control changes when a user selects a new sheet
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Dim X As Long
  
  'Find the index value for the active sheet in the dropdown array
  For X = 0 To TSNavItems - 1
    If TSNavArray(X) = ActiveSheet.Name Then
      TrackTSNav = X
    End If
  Next X
  TSRibbon.InvalidateControl ("drp_Navigate")   'Reset the dropdown control
End Sub