{"id":55000466,"date":"2019-12-01T00:00:00","date_gmt":"2020-03-23T18:48:58","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=466"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Erweitern_der_VBAIDE_CommandBars","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Erweitern_der_VBAIDE_CommandBars.html","title":{"rendered":"Erweitern der VBA-IDE: CommandBars"},"content":{"rendered":"

Im zweiten Teil dieser Beitragsreihe haben Sie das Handwerkszeug für das Steuern der VBA-Entwicklungsumgebung und spezieil von Modulen und dem enthaltenen Code kennen gelernt. Im vorliegenden zweiten Teil geht es ans Eingemachte: Anhand praktischer Beispiele werden wir die VBA-Entwicklungsumgebung erweitern und dafür sorgen, dass die Erweiterungen von der Symbolleiste und dem Kontextmenü aus aufrufbar sind.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1906_Commandbars.accdb<\/b>.<\/p>\n

Voraussetzungen<\/h2>\n

Für die Programmierung von Menüleisten mit Early Binding benötigen Sie einen Verweis auf die Bibliothek Microsoft Office x.0 Object Library<\/b>. Diesen finden Sie in älteren Office-Versionen unter dieser Bezeichnung im Verweise<\/b>-Dialog. In neueren Versionen heißt der Verweis einfach Office <\/b>(siehe Bild 1). Nach dem Hinzufügen und dem erneuten öffnen des Dialogs wird die Bibliothek jedoch unter dem standardmäßigen Namen angezeigt.<\/p>\n

\"Verweis<\/a><\/p>\n

Bild 1: Verweis auf die Office-Bibliothek<\/p>\n

Einführung<\/h2>\n

Erweiterungen der VBA-Entwicklungsumgebung dienen häufig einer Vereinfachung der Quellcodeeingabe, um sich die Durchführung immer wiederkehrender oder komplizierter Aufgaben zu erleichtern.<\/p>\n

Dazu gehört beispielsweise das Hinzfuügen einer Fehlerbehandlung zu einer Prozedur, einer Zeilennummerierung oder von Property Get<\/b>– und Property Let<\/b>– beziehungsweise Property Set<\/b>-Prozeduren für bestimmte Variablen.<\/p>\n

Eingabe von Klammern und Anführungszeichen<\/h2>\n

Eine zwar sehr klein erscheinende, aber dennoch auf Dauer nervende Aufgabe ist das Hinzufügen von Klammernpaaren sowie von einfachen oder doppelten Anführungszeichen. Damit ist nicht die Eingabe dieser Zeichen beim erstmaligen Anlegen einer Prozedur gemeint, sondern das nachträgliche Einfügen – etwa, wenn Sie eine MsgBox<\/b>-Funktion nicht nur aufrufen, sondern auch den Rückgabewert ermitteln möchten. Die erste Variante sieht wie folgt aus:<\/p>\n

MsgBox<\/span> \"Bitte klicken Sie auf Ja oder Nein.\", vbYesNo<\/pre>\n
Variante mit Rückgabewert:<\/p>\n
Debug.Print<\/span> MsgBox<\/span>(\"Bitte klicken Sie auf Ja oder Nein.\", vbYesNo)<\/pre>\n
Das Anlegen der Klammern ist zwar kein allzu großer Aufwand, aber man könnte es auch vereinfachen, indem man beispielsweise den einzuklammernden Bereich markiert und auf eine Schaltfläche der Symbolleiste oder des Kontextmenüs des Moduls klickt.<\/p>\n
Die Aussicht auf eine kleine Vereinfachung des Programmieralltags müssen Sie nun allerdings noch ein paar Abschnitte lang zurückstellen: Zunächst erfahren Sie, wie sich Menüs in die VBA-Benutzeroberfläche integrieren lassen, mit denen die Erweiterung aufgerufen werden kann.<\/p>\n
Menüpunkte in der VBA-Entwicklungsumgebung anlegen<\/h2>\n
Die Verwendung von Menübefehlen und deren Erstellung wäre an sich kein Problem – wenn es nicht einen unsäglichen Bug gäbe, der die OnAction<\/b>-Eigenschaft der Menüleisten-Steuerelemente untauglich macht.<\/p>\n
Man könnte dann über den Anpassen-Modus der Menüleisten die gewünschten Schaltflächen hinzufügen, per OnAction<\/b>-Eigenschaft die gewünschten Funktionen festlegen und diese in einem öffentlichen Modul speichern. Das Gleiche funktioniert zum Glück auch per VBA, allerdings nur mit einer alternativen Programmiertechnik zu der einfachen Verwendung der für die Eigenschaft OnAction <\/b>hinterlegten Prozedur.<\/p>\n
So muss man sich eines trickreichen Umweges behelfen, der folgendermaßen aussieht (siehe auch Listing 1):<\/p>\n
<font color=blue>Option Compare Database<\/font>\r\n<font color=blue>Option Explicit<\/font>\r\n<font color=blue>Dim <\/font>colButtons<font color=blue> As <\/font>Collection\r\n<font color=blue>Public Function <\/font>VBEMenueAn1egen()\r\n     <font color=blue>Dim <\/font>cbr<font color=blue> As <\/font>CommandBar\r\n     <font color=blue>Dim <\/font>objMenuEvents<font color=blue> As <\/font>clsMenuEvents\r\n     <font color=blue>Set<\/font> colButtons = <font color=blue>New<\/font> Collection\r\n     On Error Resume <font color=blue>Next<\/font>\r\n     Application.VBE.CommandBars(\"VBEErweiterungen\").Delete\r\n     <font color=blue>On Error GoTo<\/font> 0\r\n     <font color=blue>Set<\/font> cbr = Application.VBE.CommandBars.Add(\"VBEErweiterungen\")\r\n     cbr.Visible = <font color=blue>True<\/font>\r\n     cbr.Position = msoBarTop\r\n     <font color=blue>Set<\/font> objMenuEvents = <font color=blue>New<\/font> clsMenuEvents\r\n     <font color=blue>Set<\/font> objMenuEvents.objButtonBrakes = cbr.Controls.Add(msoControlButton)\r\n     <font color=blue>With<\/font> objMenuEvents.objButtonBrakes\r\n         .Style = msoButtonCaption\r\n         .Caption = \"Klammern setzen()\"\r\n     End <font color=blue>With<\/font>\r\n     colButtons.Add objMenuEvents\r\nEnd Function<\/span><\/pre>\n
Listing 1: Standardmodul mit einer Funktion zum Anlegen einer neuen Symbolleiste mit einer Schaltfläche<\/p>\n
Deklarieren Sie in einem öffentlichen Modul ein Col-lection<\/b>-Objekt namens colButtons<\/b>. Dieses wird später die einzelnen Schaltflächen-Objekte aufnehmen.<\/p>\n
Die Anweisungen zum Erstellen der Symbolleiste und Anlegen der gewünschten Schaltflächen fassen Sie in einer Funktion namens VBEMenueAnlegen <\/b>zusammen. Dort deklarieren Sie zunächst ein CommandBars<\/b>-Element namens cbr <\/b>und eine Objektvariable, die auf eine Instanz der Klasse clsMenu-Events <\/b>verweist – diese Klasse schauen wir uns gleich im Anschluss an.<\/p>\n
Als Erstes initialisieren wir die Auflistung colButtons<\/b> mit der New<\/b>-Anweisung.<\/p>\n
Das Erstellen der Symbolleiste verläuft dann genauso, als ob Sie die Access-Oberfläche mit zusätzlichen Symbolleisten bestücken wollten. Sie fügen zur CommandBars<\/b>-Auflistung des VBE<\/b>-Objekts ein neues Element namens VBEErweiterungen <\/b>hinzu, positionieren es oben bei den anderen Symbolleisten (cbr.Position = msoBarTop<\/b>) und machen es sichtbar (cbr.Visible = True<\/b>). <\/p>\n
Nachdem die Symbolleiste vorhanden ist, erstellen wir eine neue Instanz der Klasse clsMenu-Events <\/b>und bestücken die Symbolleiste mit einer Schaltfläche.<\/p>\n
Dazu ruft die Prozedur die Add<\/b>-Methode der Controls<\/b>-Auflistung des CommandBar<\/b>-Objekts auf. Das neue CommandBarButton<\/b>-Objekt weist sie der öffentlichen Objektvariablen objButtonBrakes <\/b>der Klasse clsMenu-Events <\/b>zu.<\/p>\n
Nach dem Einstellen der Eigenschaften Style <\/b>und Caption <\/b>landet die Instanz der Klasse objMenuEvents <\/b>– und damit auch die referenzierte neue Schaltfläche – in der Auflistung colButtons<\/b>.<\/p>\n
Klassenmodul mit Button-Ereignis<\/h2>\n
Danach legen Sie mit dem Menübefehl Einfügen|Klassenmodul <\/b>ein neues Klassenmodul namens clsMenuEvents <\/b>an. Diesem fügen wir eine Objektvariable namens obj-ButtonBrakes <\/b>hinzu und deklarieren sie mit dem Typ CommandBarButton<\/b>.<\/p>\n
Dabei verwenden wir das Schlüsselwort WithEvents<\/b>, was uns erlaubt, die Ereignisprozeduren des Typs CommandBarButton <\/b>in der gleichen Klasse zu implementieren. Um diese Ereignisprozedur anzulegen, wählen wir im linken Kombinationsfeld des Codefensters für das Klassenmodul einfach den Namen der Va-ri-ablen objButtonBrakes aus. Da für dieses nur das Er-eig-nis Click <\/b>vorgesehen ist, wird die entsprechende Er-eig-nisprozedur so direkt angelegt (siehe Bild 2).<\/p>\n
\"Hinzufügen<\/a><\/p>\n
Bild 2: Hinzufügen einer Ereignisprozedur für die Schaltfläche<\/p>\n
Das Ergebnis sieht so aus wie in Listing 2. Sie brauchen nur noch eine MsgBox<\/b>-Anweisung hinzuzufügen. Wenn Sie diese gleich im Anschluss erfolgreich getestet haben, füllen Sie die Prozedur mit der eigentlichen Funktion.<\/p>\n
<font color=blue>Public <\/font>WithEvents objButtonBrakes<font color=blue> As <\/font>ConmandBarButton\r\n<font color=blue>Private Sub <\/font>objButtonBrakes_Click(ByVal ctrl<font color=blue> As <\/font>Office.ComnandBarButton, CancelDefault<font color=blue> As Boolean<\/font>)\r\n     <font color=blue>MsgBox<\/font> \"Klammern anlegen\"\r\nEnd Sub<\/span><\/pre>\n
Listing 2: Die Klasse cIsMenuEvents mit einem Schaltflächenobjekt und der entsprechenden Methode<\/p>\n
Menü mit Schaltfläche erstellen lassen<\/h2>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t