Sub CreateBar()
On Error GoTo Err
If Not CommandBars("Pasek 1") Is Nothing Then
CommandBars("Pasek 1").Delete
End If
With CommandBars.Add("Pasek 1", msoBarTop)
With .Controls.Add(msoControlButton)
.OnAction = "Akcja1"
.Caption = "&Dokument"
.FaceId = 61
End With
With .Controls.Add(msoControlButton)
.OnAction = "Akcja2"
.Caption = "&Archiwum"
.BeginGroup = True
.FaceId = 35
End With
End With
Exit Sub
Err:
'Obsługa błędu
End Sub
Sub Akcja1()
MsgBox "Akcja1"
End Sub
Sub Akcja2()
MsgBox "Akcja2"
End Sub
W przypadku paska wyłącznie bitmapkowego, należy opuścić „.Caption =...", natomiast w przypadku paska wyłącznie tekstowego, należy opuścić ".FaceId =...".
