Zusatzmenü in einer Reihe
10.03.2017 17:57:52
Wolfgang
Ich habe in Excel XP 3 Zusatzmenüs erstellt. Diese werden vor der Hilfe angezeigt.
Diese werden an Excel 2007 aber in Ad Inns angezeigt, jedoch unter einander. Was muss ich einfügen, damit sie neben einander positioniert werden.
Danke im Voraus
Wolfgang
Aus dem Erzgebirge
PS: hier des Makro
Option Explicit
Dim i As Integer, cobo As Integer
Dim Zn As Long
Sub Eingabefeldeinfügen() 'fü _
gt Menüeintrag ein
On Error Resume Next
With Application.CommandBars(1)
.Controls("&Berechnen").Delete
.Controls("&Erstellen/Kassieren").Delete
.Controls("&Zusatzanzeigen").Delete
End With
Dim i_Hilfe As Integer
Dim MenüNeu As CommandBarControl
Dim MB As CommandBarControl
i = Application.CommandBars(1).Controls.count
i_Hilfe = Application.CommandBars(1).Controls(i).Index
Set MenüNeu = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:= _
i_Hilfe, temporary:=True)
MenüNeu.Caption = "&Zusatzanzeigen"
Set MB = MenüNeu.Controls.Add(Type:=msoControlButton)
With MB
.Caption = "Zusätzliches Kontextmanü anzeigen"
.Style = msoButtonIconAndCaption
.OnAction = "ZusatzKontextmenüAnzeigen"
.FaceId = 3738
.BeginGroup = True
End With
Set MenüNeu = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:= _
i_Hilfe + 1, temporary:=True)
MenüNeu.Caption = "&Berechnen"
Set MB = MenüNeu.Controls.Add(Type:=msoControlButton)
With MB
.Caption = "Berechnungen in Teilnehmerliste aktualisieren"
.Style = msoButtonIconAndCaption
.OnAction = "Update"
.FaceId = 3738
End With
Set MB = MenüNeu.Controls.Add(Type:=msoControlButton)
With MB
.Caption = "Berechnungen in Teilnehmerliste löschen"
.Style = msoButtonIconAndCaption
.OnAction = "BerechnungenLöschen"
.FaceId = 3738
End With
Set MenüNeu = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:= _
i_Hilfe + 2, temporary:=True)
MenüNeu.Caption = "&Erstellen/Kassieren"
Set MB = MenüNeu.Controls.Add(Type:=msoControlButton)
With MB
.Caption = "Kassiererlisten erstellen"
.Style = msoButtonIconAndCaption
.OnAction = "Main"
.FaceId = 3738
.BeginGroup = True
End With
Set MB = MenüNeu.Controls.Add(Type:=msoControlButton)
With MB
.Caption = "Nachkassieren"
.Style = msoButtonIconAndCaption
.OnAction = "NachkassierenAnzeigen"
.FaceId = 3738
End With
End Sub