Eigenes Menü nun in Office 2010
12.12.2012 12:20:16
HolgerCW
wir stellen nun um von Office 2003 auf Office 2010.
Habe bisher mein Menü so erstellt:
Sub Menü_erstellen()
'On Error GoTo Fehleranalyse:
Dim cmdbutton, MB, M1
Call Menü_zurücksetzen
Application.CommandBars("System").Enabled = False
Set MB = CommandBars.Add(Name:=MenüName, MenuBar:=True, Temporary:=True)
' ########## DATEI ##########
Set M1 = MB.Controls.Add(Type:=msoControlPopup)
M1.Caption = "&Datei"
Set cmdbutton = M1.Controls.Add
With cmdbutton
.Tag = "dpmSpeichern"
.Caption = "&Speichern"
.OnAction = "System_Speichern"
.Style = msoButtonIconAndCaption
.FaceId = 3
End With
Set cmdbutton = M1.Controls.Add
With cmdbutton
.Tag = "dpmDrucken"
.Caption = "Drucken.."
.OnAction = "Stückliste_drucken_starten"
.Style = msoButtonIconAndCaption
.FaceId = 4
End With
...
Nun klappt das auch in Office 2010. Wird nur als "Add-Ins" in der Menübar dort angehängt. Gibt es eine Möglichkeit, das nur mein Menü verfügbar ist ?
Gruss
Holger