Creating our first button in VBA

Prerequisites

We recommend you go though A 'hello world' VBA program before going into this example.

Creating a button

• Enter the code below in a standard VBA module

1. Public Sub CreateMyUI3()

3.     With rxCustomUI.defaultInstance

4.         ' Clear old state

5.         .Clear

7.         ' Add a new tab

8.         With .ribbon.tabs.Add(New rxTab)

9.             .Label = "My First Tab"

10.             ' Add a new group to our tab

11.             With .groups.Add(New rxGroup)

12.                 .Label = "My Group"

14.                 ' Add a new button to our group

15.                 With .Buttons.Add(New rxButton)

16.                     .Label = "My Button"

18.                 End With

20.             End With

21.         End With

23.         ' Render the UI

24.         .Refresh

25.     End With

27. End Sub

• Run the sub to create a button labeled 'My Button' (which belongs to a group labeled 'My Group' which, in turn' belongs to a tab labeled 'My Tab')

  

Code Analysis

' Add a new group to our tab
With .groups.Add(New rxGroup)
    .Label = "My Group"
    '...
End With

Each rxTab object has a collection of rxGroup objects (accessible through its .groups property). Here we add a new group to our tab's groups and label it 'My Group'

' Add a new button to our group
With .Buttons.Add(New rxButton)
    .Label = "My Button"
 
End With

Each rxGroup object has a collection of rxButton objects (accesible through its .buttons property). Here we add a new button to out group's buttons and label it 'My Button'