Es ist eine kleine Menuleiste mit 2 Funktionen die mit Makros verlinkt sind...
Nun möchte ich diese beiden Schaltflächen nicht auf einer Ebene haben sondern im Untermenu "Datei"...
Wie muss ich dazu meinen Code verändern??
Danke schonmal
Daniel
PS: Das AddIn vbCmdBar kann ich leider nicht benutzen da es abstürzt bei mir...
Code:
Dim cb As CommandBar
Dim CBC As CommandBarButton
Dim I%
On Error Resume Next
Set cb = Application.CommandBars.Add(Name:="PSEingabe", temporary:=True, Position:=msoBarTop)
On Error GoTo 0
If Application.CommandBars("PSEingabe").Visible = False Then
cb.Visible = True
For I = 1 To 2
Set CBC = cb.Controls.Add(Type:=msoControlButton)
With CBC
.Width = 50 ' Breite der Schalter
.Style = msoButtonCaption ' Text auf Schaltfläche
Select Case I
Case 1
.Caption = "Dat_Sp"
.OnAction = "Makro_Datei_speichern"
.TooltipText = "Datei speichern"
Case 2
.Caption = "Dat_Sch"
.OnAction = "Makro_Datei_schliessen"
.TooltipText = "Datei schliessen"
End Select
End With
Next I
End If