So legen Sie das Menü des TopTools an 18.6 So legen Sie das Menü des TopTools an Bei dem zweiten Add-In in diesem Kapitel handelt es sich um eine Sammlung an nützlichen Funktionen. Hier im Buch werden die Lösungen für Excel 97­2003 beschrieben. Auf der CD-ROM finden Sie außerdem das lauffähige Tool T OP T OOLS V ERSION 2007_2010. XLS . Als allererste Aufgabe muss direkt nach dem Einbinden des Add-Ins über den Add-Ins-Manager ein neues Menü mit dem Namen T OP T OOLS erzeugt werden. Diese Aufgabe wird über das Ereignis Workbook_Open aus Listing 18.7 gesteuert. Speichern Sie dabei das Ereignis direkt hinter der Klasse D IESE A RBEITSMAPPE . Listing 18.7: Das neue Menü dynamisch einfügen und wieder löschen Private Sub Workbook_Open() NeuesMenüEinfügen End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) MenüLöschen End Sub 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Beim Deaktivieren des Add-Ins T OP T OOLS wird das Menü T OP T OOLS durch Aufruf des Makros M ENÜ L ÖSCHEN wieder gelöscht. Im Makro aus Listing 18.8 wird innerhalb des Open -Ereignisses das Makro Neues- MenüEinfügen aufgerufen. Geben Sie dieses Makro in M ODUL 2, wie in Listing 18.8 gezeigt, ein. Listing 18.8: Das neue Menü wird automatisch beim Einbinden des Add-Ins eingefügt. Sub Dim Dim Dim Dim Dim Dim NeuesMenüEinfügen() i As Integer i_Hilfe As Integer e As Integer MenüNeu As CommandBarControl Mb As CommandBarControl unterm As CommandBarPopup For e = 1 To Application.CommandBars(1).Controls.Count If Application.CommandBars(1).Controls(e).Caption = "TopTools" Then Exit Sub Next e 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 = "TopTools" Set Mb = MenüNeu.Controls.Add _ (Type:=msoControlButton) With Mb .Caption = "Alle Arbeitsmappen in einem Ordner listen" 393