Benutzerdef Menu erstellt in Office XP
Peter
Ich will eine Arbeitsmappe, die ich mit Office XP erstellt habe, mit der Excel-Version 2007 bearbeiten - allerdings ohne, dass ich die Arbeitsmappe im neuen xlsx Format abspeichere.
Beim Aufstarten mit Office XP wird jeweils ein benutzerdfiniertes Menu erstellt. In der Excel Umgebung 2007 wird dieses menu nicht erstellt oder ich sehe es nicht. Wer kann mir helfen?
Danke, Peter
Const x1MenueName = "&KBTAG"
Const x1MBefehl1 = " 1. &Änderungsmodus freigeben {Ctl-Alt-i}"
Const x1MBefehl2 = " 2. &Spalten ein / aus-- {F4}"
Const x1MBefehl3 = " 3. &Fensterfixierung Drucktitel {Ctl-Alt-b}"
Const x1MBefehl4 = " 4. &FSL ein / aus"
Const x1MBefehl5 = " 5. &LJR ein / aus"
Sub x1Menu_Erstellen()
Dim MB As Object, x1MeinMenu As Object, x1MBefehl As Object
Call x1Menu_Löschen
Set MB = CommandBars.ActiveMenuBar
Set x1MeinMenu = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
x1MeinMenu.Caption = x1MenueName
Set x1MBefehl = x1MeinMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With x1MBefehl
.Caption = x1MBefehl1
.OnAction = "x1MachWas1"
End With
Set x1MBefehl = x1MeinMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With x1MBefehl
.Caption = x1MBefehl2
.OnAction = "x1MachWas2"
End With
Set x1MBefehl = x1MeinMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With x1MBefehl
.Caption = x1MBefehl3
.OnAction = "x1MachWas3"
End With
Set x1MBefehl = x1MeinMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With x1MBefehl
.Caption = x1MBefehl4
.OnAction = "x1MachWas4"
End With
Set x1MBefehl = x1MeinMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With x1MBefehl
.Caption = x1MBefehl5
.OnAction = "x1MachWas5"
End With
End Sub