Difference between revisions of "A 'hello world' VBA program"

From Ribbon Commander Documentation
Jump to: navigation, search
(Creating a tab)
(Creating a tab)
Line 11: Line 11:
 
     ' Create a new tab
 
     ' Create a new tab
 
     Dim myTab As rxTab
 
     Dim myTab As rxTab
     Set myTab = rxCustomUI.defaultInstance.ribbon.tabs.Add(New rxTab)
+
     Set myTab = myCustomUI.ribbon.tabs.Add(New rxTab)
 
      
 
      
 
     ' Give the new tab a label
 
     ' Give the new tab a label

Revision as of 16:56, 10 March 2013

Creating a tab

Enter the code below in a standard VBA module and run it to create a tab labeled 'My First Tab'

Public Sub CreateMyUI()
 
    ' Get a reference to the default rxCustomUI instance
    Dim myCustomUI As rxCustomUI
    Set myCustomUI = rxCustomUI.defaultInstance
 
    ' Create a new tab
    Dim myTab As rxTab
    Set myTab = myCustomUI.ribbon.tabs.Add(New rxTab)
 
    ' Give the new tab a label
    myTab.Label = "My First Tab"
 
 
    ' Render the UI
    myCustomUI.Refresh
 
End Sub