Difference between revisions of "A 'hello world' VBA program"
From Ribbon Commander Documentation
(→Code Analysis) |
|||
| Line 7: | Line 7: | ||
Dim myCustomUI As rxCustomUI | Dim myCustomUI As rxCustomUI | ||
Set myCustomUI = rxCustomUI.defaultInstance | Set myCustomUI = rxCustomUI.defaultInstance | ||
| + | |||
| + | ' Get a reference to the rxRibbon object of our rxCustomUI instance | ||
| + | Dim myRibbon As rxRibbon | ||
| + | Set myRibbon = myCustomUI.ribbon | ||
' Create a new tab | ' Create a new tab | ||
Dim myTab As rxTab | Dim myTab As rxTab | ||
| − | Set myTab = | + | Set myTab = myRibbon.tabs.Add(New rxTab) |
| + | |||
' Give the new tab a label | ' Give the new tab a label | ||
Revision as of 18:15, 10 March 2013
Creating a tab
- Enter the code below in a standard VBA module
Public Sub CreateMyUI()
' Get a reference to the default rxCustomUI instanceDim myCustomUI As rxCustomUI
Set myCustomUI = rxCustomUI.defaultInstance' Get a reference to the rxRibbon object of our rxCustomUI instanceDim myRibbon As rxRibbon
Set myRibbon = myCustomUI.ribbon' Create a new tabDim myTab As rxTab
Set myTab = myRibbon.tabs.Add(New rxTab)
' Give the new tab a labelmyTab.Label = "My First Tab"' Render the UImyCustomUI.Refresh
End Sub
- Run the sub to create an empty tab labeled 'My First Tab'
-
Code Analysis
Dim myCustomUI As rxCustomUI Set myCustomUI = rxCustomUI.defaultInstance
rxCustomUI is at the top of the object model hierarchy. Here, we are holding on to the default rxCustomUI instance for the current office application session.
Dim i As Long
