Stack Toolbar Buttons

Is there a way to stack toolbar buttons on two rows instead of one row?

I have a floating toolbar that is created when a workbook is opened. The toolbar has 16 buttons (all in a row) and gets in the way because it is too long.

I would like to display the toolbar with two rows of eight buttons instead of one long row of 16 buttons.

Is there a way to create a floating toolbar that when created will display the first eight buttons and then “wrap text” /”carriage return” itself and then display the final eight buttons?

Thank you,
Andy

Re: Stack Toolbar Buttons

Thanks but I am trying to create the toolbar, that when created, will appear with the buttons already arranged on two rows.

The users of the workbook that has the custom toolbar attached to it don’t know how to resize the toolbar so I am trying to set it up for them that when the toolbar appears it is already arranged on two rows instead of one long row.

An example would be the Forms toolbar. When you are in Excel and open the Forms toolbar it appears as a vertical toolbar with two buttons per row instead of like another toolbar (like the formatting toolbar) that appears with all the buttons on a single row.

I am using the code below to create the toolbar.

Sub CreateCustomToolbar()


    Const MyBar As String = "Financial Program Toolbar"
    On Error Resume Next
    CommandBars(MyBar).Delete
    On Error GoTo 0
    CommandBars.Add Name:=MyBar
     With CommandBars(MyBar)


With CommandBars(MyBar)
With .Controls.Add(ID:=1)
            .OnAction = "Week One Financial Statements"
             FaceId = 82
            .BeginGroup = True
           	End With
        
       	 With .Controls.Add(ID:=1)
            .OnAction = "Week Two Financial Statements"
            .FaceId = 83
            .BeginGroup = True
 End With
        
        	With .Controls.Add(ID:=1)
            .OnAction = "Week Three Financial Statements"
            .FaceId = 83
            .BeginGroup = True
 End With 


With .Controls.Add(ID:=1)
            .OnAction = " Week Four Financial Statements"
            .FaceId = 84
            .BeginGroup = True
        	End With
        
        	With .Controls.Add(ID:=1)
            .OnAction = "Monthly End Financial Statements"
            .FaceId = 94
            .BeginGroup = True
             End With
     
(Etc. for each of the remaining 12 buttons.)
   
        .Visible = True
    End With
   
 End Sub

I have been looking through the VBA help section for toolbars but have not come across what I need yet to make the buttons appear on two rows instead of one when the toolbar is created.

Any help would be appreciated.
Thanks