Menü erstellt im falschen Workbook
20.10.2005 16:42:12
Maike
Ich erstelle ein eigenes menü.
Schön nach vorschrift aus nem buch.
Zuerst dachte ich , es würde niccht funktionieren, weil in dem workbook, in dem ich das makro ausführe kein Menü entsteht.
Allerdings habe ich dann mal in dem Workbook nachgesehen, in dem ich das makro geschrieben habe. darin ist bei jedem mal ausführen ein Menü entstanden.
Wie bekomme ich also hin, dass dieses Menü nicht im "Heimatworkbook" des makros erscheint, sondern in dem, auf das ich das makro auch ausführe?
Hier der code:
Sub NeuesMenüEinfügen()
Dim i As Integer
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 = "&Motorkennfeld"
Set MB = MenüNeu.Controls.Add(Type:=msoControlButton)
With MB
.Caption = "dickere Kennlinien"
.Style = msoButtonIconAndCaption
.OnAction = "KennlinienDickerZeichnen"
.FaceId = 3738
.BeginGroup = True
End With
End Sub
Kann mir da jemand weiterhelfen.
Bin für alle vorschläge dankbar
Gruß Maike
Anzeige