ich habe einige Buttons erstellt, die ich nun in der Symbolleiste habe. Ich möchte diese aber nebeneinander, nicht untereinaner angeordnet haben.
Ist das in VBA möglich?
Gruß
Marcl
Sub CreateMenu()
Dim CB As CommandBar
Dim CBP As CommandBarPopup
Set CB = Nothing
On Error Resume Next
Application.CommandBars("IC-druck").Delete
On Error GoTo ErrorHandle
Set CB = Application.CommandBars.Add(Name:="IC-druck", Position:=msoBarTop)
Set CBP = CB.Controls.Add(Type:=msoControlPopup, temporary:=False)
With CBP
.Caption = "Druck und pdf-Druck"
.OnAction = "pdfdruck"
End With
CB.Visible = True
Exit Sub
ErrorHandle:
MsgBox Title:="Es ist ein Fehler aufgetreten", _
Prompt:="Fehlernummer: " & Err.Number & vbCrLf & _
"Fehlerbeschreibung: " & Err.Description, _
Buttons:=vbCritical
End Sub