TM1 Forum

Code: Select all

Sub CreateToolbar()

Dim s_Msg As String

Dim cbrNew As CommandBar
Dim cbrStandard As CommandBar
Dim l_cbrStandardWidth As Long
Dim l_cbrStandardLeft As Long

On Error GoTo ErrorHandler

'Just in case it already exists.
On Error Resume Next
Application.CommandBars("TestPos").Delete

Set cbrStandard = Application.CommandBars("Standard")
On Error GoTo ErrorHandler

If cbrStandard Is Nothing Then
    Err.Raise vbObjectError + 1000, , "No Standard toolbar."
End If

l_cbrStandardWidth = cbrStandard.Width
l_cbrStandardLeft = cbrStandard.Left

Set cbrNew = CommandBars.Add(Name:="TestPos")

With cbrNew
    .Position = msoBarTop
    .Left = l_cbrStandardLeft + l_cbrStandardWidth
    
    'Don't try assigning the .RowIndex from the
    'other toolbar to a variable and then
    'assigning it here; that will merely bump the other toolbar
    'out of the way. Always assign directly from the
    'other bar's property.
    .RowIndex = cbrStandard.RowIndex
    
    .Visible = True
End With

'Do the code for adding the buttons
'to the bar yourself, you lazy sod.

ExitPoint:

Set cbrNew = Nothing
Set cbrStandard = Nothing

Exit Sub

ErrorHandler:
s_Msg = "D'OH! Error " & Err.Number & vbCrLf _
 & Err.Description

MsgBox s_Msg, vbCritical

Resume ExitPoint

End Sub