Durch Anpassung des Ribbons oder des Backstage-Bereichs kann man seinen Anwendungen praktische Elemente zum Aufrufen von Funktionen, Formularen oder Berichten hinzufügen. Noch individueller werden benutzerdefinierte Ribbons und der Backstage-Bereich, wenn man den Steuerelementen auch noch eigene Icons hinzufügt. Das ist jedoch mit Bordmitteln nicht so einfach möglich. Früher hat man diese Aufgabe unter Verwendung zahlreicher API-Funktionen aus der GDI-Bibliothek erledigt. Mittlerweile haben wir wesentlich einfachere Routinen dafür entwickelt. In diesem Artikel stellen wir diese vor und zeigen, wie Du Ribbon- und Backstage-Steuerelemente einfach mit solchen Icons ausstatten kannst.<\/b><\/p>\n
Voraussetzung<\/h2>\n
Wie immer, wenn wir das Ribbon für eine Datenbank-Anwendung individuell anpassen wollen, benötigen wir die Ribbon-Definition selbst. Diese speichern wir in der Tabelle USysRibbons <\/b>(siehe Bild 1).<\/p>\n
![\"Ribbon-Definition](\"..\/fileadmin\/_temp_\/2026_02\/pic_501_001.png\")
<\/p>\n
Bild 1: Ribbon-Definition in der Tabelle USysRibbons<\/span><\/b><\/p>\n Der erste Bereich, den wir mit eigenen Bildern ausstatten wollen, ist ein tab<\/b>-Element im Ribbon. Dafür haben wir ein neues Tab namens Projektverwaltung angelegt, das im Endergebnis wie in Bild 2 aussieht.<\/p>\n Bild 2: Ribbon-Steuerelemente mit Bildern<\/span><\/b><\/p>\n Den XML-Code für diesen Bereich sehen wir in Listing 1. Hier haben wir an einigen Stellen für das Attribut image<\/b> den Namen des jeweiligen Bildes angegeben.<\/p>\n Listing 1: Erster Teil der Ribbon-Definition<\/span><\/b><\/p>\n Außerdem wollen wir den Backstage-Bereich an einigen Stellen mit eigenen Bildern versehen. Dazu haben wir der Ribbon-Definition im Bereich backstage<\/b> die Elemente wie in Listing 2 hinzugefügt.<\/p>\n Listing 2: Zweiter Teil der Ribbon-Definition, hier für den Backstage-Bereich<\/span><\/b><\/p>\n Diese Erweiterungen spiegeln sich im Backstage-Bereich in einem neuen tab<\/b>-Element wieder, das nach dem Anklicken den Bereich aus Bild 3 liefert.<\/p>\n Bild 3: Backstage-Bereich mit einigen Bildern<\/span><\/b><\/p>\n Wir können in den meisten Steuerelementen im Ribbon zwei Bildgrößen verwenden.<\/p>\n Wenn wir die Eigenschaft size <\/b>für das Element auf normal <\/b>einstellen oder diese weglassen, werden die Bilder mit 16 x 16 Pixeln angezeigt. Geben wir large an, erscheinen die Bilder mit 32 x 32 Pixeln. Optimalerweise liegen die Bilddateien in der passenden Größe vor, also 16 x 16 Pixel für kleine und 32 x 32 Pixel für große Bilder.<\/p>\n Die Bilddateien sollten außerdem in einem Format vorliegen, das Transparenz unterstützt. Optimal sind .png<\/b>-Bilder geeignet, aber es funktioniert auch mit .ico<\/b>– und .bmp<\/b>-Dateien.<\/p>\n Mit der Angabe von Bildnamen für die image<\/b>-Elemente haben wir bereits den ersten Teil geschafft – wir haben festgelegt, welches Bild für welches Steuerelement angezeigt werden soll. Es fehlen noch zwei weitere Schritte:<\/p>\n Zum Hinterlegen der Bilder gibt es eine einfache Möglichkeit über die Benutzeroberfläche, die wir ein wenig zweckentfremden.<\/p>\n Dazu öffnen wir ein Formular in der Entwurfsansicht und wählen im Ribbon den Befehl Formularentwurf|Steuerelemente|Bild einfügen <\/b>aus und klicken unten auf Durchsuchen<\/b>.<\/p>\n Dies öffnet einen Dateiauswahl-Dialog, mit dem wir die Icons einzeln zur Tabelle MSysResources <\/b>hinzufügen können. Wir brauchen das Bild anschließend gar nicht zum Formularentwurf hinzuzufügen, es wird automatisch in der Tabelle MSysResources <\/b>gespeichert.<\/p>\n Das erkennen wir auch daran, dass alle hinzugefügten Bilder anschließend nach einem Klick auf Bild hinzufügen<\/b> in der Liste erscheinen (siehe Bild 4).<\/p>\n Bild 4: Bilder in der Tabelle MSysResources<\/span><\/b><\/p>\n Die Callback-Funktion, die wir im Attribut loadImages <\/b>des Elements customUI <\/b>hinterlegt haben, enthält nur eine Anweisung:<\/p>\n Die hier angegebene Funktion erwartet den Namen der Bilddatei, so wie er in der Tabelle MSysResources <\/b>im Feld Name <\/b>gespeichert ist, also ohne Dateiendung.<\/p>\n Die Funktion amvGetImageFromResourcesByName<\/b> liest ein Bild aus der Access-Systemtabelle MSysResources<\/b> und gibt es als StdPicture<\/b>-Objekt zurück, das Access direkt als Icon in Ribbon- und Backstage-Steuerelementen verwenden kann (siehe Listing 3).<\/p>\n Listing 3: Die Funktion amvGetImageFromResourcesByName<\/span><\/b><\/p>\n Der Parameter strName<\/b> empfängt den Namen des Bildes, wie er in MSysResources<\/b> hinterlegt ist. Dieser Name entspricht dem Wert des image<\/b>-Attributs im XML – ruft Access also den loadImage<\/b>-Callback auf, übergibt es genau diesen String.<\/p>\n Im ersten Schritt öffnet die Funktion ein Recordset auf die Tabelle MSysResources<\/b>. Das Feld Data<\/b> ist ein Anlagefeld, das die eigentliche Bilddatei enthält. Über die Notation Data.FileData<\/b> greifen wir direkt auf die Binärdaten der Anlage zu, ohne den Umweg über ein separates Recordset für das Anlagefeld nehmen zu müssen.<\/p>\n Liefert die Abfrage keinen Treffer, verlässt die Funktion den Ablauf über Exit Function<\/b> und gibt implizit Nothing<\/b> zurück. Access zeigt das betreffende Steuerelement dann einfach ohne Icon an.<\/p>\n Wurde ein Datensatz gefunden, lesen wir die Binärdaten in ein Byte-Array bytRaw<\/b> ein. Dieses Array enthält allerdings nicht nur die reine Bilddatei: Access stellt den eigentlichen Daten einen Header voran. Die Länge dieses Headers steht im ersten Byte des Arrays. Mit diesem Offset kopieren wir über die API-Funktion amvCopyMemory<\/b> nur die eigentlichen Bilddaten in ein zweites Array bytData<\/b>. Diese API-Funktion deklarieren wir in dem Modul, in dem sich auch die Funktion amvGetImageFromResourcesByName<\/b> befindet.<\/p>\n Im letzten Schritt erzeugen wir über CreateObject(“WIA.Vector”)<\/b> ein WIA-Objekt (Windows Image Acquisition<\/b>). Dessen Eigenschaft BinaryData <\/b>nimmt das Byte-Array entgegen, und die Eigenschaft Picture<\/b> liefert daraus ein StdPicture<\/b>-Objekt, das wir als Funktionsergebnis zurückgeben.<\/p>\n Die Funktion kommt ohne Fehlerbehandlung mit On Error<\/b> aus, da kein Fall auftreten kann, in dem ein stilles Verschlucken von Fehlern sinnvoll wäre.<\/p>\n Wird ein ungültiger Name übergeben, gibt die Funktion Nothing<\/b> zurück. Ist die Bilddatei beschädigt, erzeugt VBA einen regulären Laufzeitfehler, den der aufrufende Code behandeln kann.<\/p>\n Damit landen alle gewünschten Bilder in den jeweiligen Steuerelementen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n IconsInRibbonKontextmenueFormularUndTreeView.accdb<\/p>\nBilder im Ribbon<\/h2>\n
![\"Ribbon-Steuerelemente](\"..\/fileadmin\/_temp_\/2026_02\/pic_501_003.png\")
<\/p>\nBild 1<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" onLoad=\"onLoad\" loadImage=\"loadImage\">\r\n <ribbon>\r\n <tabs>\r\n <tab id=\"tabProjekt\" label=\"Projektverwaltung\" insertAfterMso=\"TabHome\">\r\n <group id=\"grpDokumente\" label=\"Dokumente\" imageMso=\"FileSave\">\r\n <button id=\"btnNeuesProjekt\" label=\"Neues Projekt\" image=\"cubes\" size=\"large\" onAction=\"onAction\"\/>\r\n <button id=\"btnProjektOeffnen\" label=\"Projekt öffnen\" image=\"folder_cubes\" size=\"large\" onAction=\"onAction\"\/>\r\n <separator id=\"sep1\"\/>\r\n <button id=\"btnSpeichern\" label=\"Speichern\" image=\"floppy_disk\" size=\"normal\" onAction=\"onAction\"\/>\r\n <button id=\"btnExportieren\" label=\"Exportieren\" image=\"export\" size=\"normal\" onAction=\"onAction\"\/>\r\n <button id=\"btnDrucken\" label=\"Drucken\" image=\"printer\" size=\"normal\" onAction=\"onAction\"\/>\r\n <\/group>\r\n <group id=\"grpTeam\" label=\"Team\">\r\n <button id=\"btnMitgliedHinzu\" label=\"Mitglied hinzufügen\" image=\"user\" size=\"large\" onAction=\"onAction\"\/>\r\n <button id=\"btnNachricht\" label=\"Nachricht senden\" image=\"mail\" size=\"large\" onAction=\"onAction\"\/>\r\n <separator id=\"sep2\"\/>\r\n <button id=\"btnAufgaben\" label=\"Aufgaben\" image=\"checkbox\" size=\"normal\" onAction=\"onAction\"\/>\r\n <button id=\"btnKalender\" label=\"Kalender\" image=\"calendar\" size=\"normal\" onAction=\"onAction\"\/>\r\n <\/group>\r\n <group id=\"grpBerichte\" label=\"Berichte\">\r\n <button id=\"btnStatusbericht\" label=\"Statusbericht\" image=\"clipboard_paste\" size=\"large\" onAction=\"onAction\"\/>\r\n <splitButton id=\"sbZeiterfassung\" size=\"large\">\r\n <button id=\"btnZeiterfassung\" label=\"Zeiterfassung\" image=\"timer\" onAction=\"onAction\"\/>\r\n <menu id=\"mnuZeiterfassung\" label=\"Zeiterfassung\">\r\n <button id=\"btnZeitStarten\" label=\"Starten\" image=\"media_play\" onAction=\"onAction\"\/>\r\n <button id=\"btnZeitStoppen\" label=\"Stoppen\" image=\"media_stop\" onAction=\"onAction\"\/>\r\n <menuSeparator id=\"msep1\"\/>\r\n <button id=\"btnZeitUebersicht\" label=\"Übersicht\" image=\"window_time\" onAction=\"onAction\"\/>\r\n <\/menu>\r\n <\/splitButton>\r\n <\/group>\r\n <\/tab>\r\n <\/tabs>\r\n <\/ribbon>\r\n ...<\/pre>\n
Bilder im Backstage-Bereich<\/h2>\n
...\r\n<backstage>\r\n <tab id=\"tabProjektInfo\" label=\"Projektinfo\" insertAfterMso=\"TabInfo\" title=\"Projektverwaltung\">\r\n <firstColumn>\r\n <group id=\"grpProjektdaten\" label=\"Projektdaten\">\r\n <primaryItem>\r\n <button id=\"btnProjektSpeichern\" label=\"Projekt speichern\" _\r\n image=\"clipboard_paste\" onAction=\"onAction\"\/>\r\n <\/primaryItem>\r\n <topItems>\r\n ...\r\n <\/topItems>\r\n <bottomItems>\r\n <hyperlink id=\"lnkDoku\" label=\"Projektdokumentation\" image=\"upload\" _\r\n target=\"https:\/\/www.example.com\"\/>\r\n <\/bottomItems>\r\n <\/group>\r\n <\/firstColumn>\r\n ...\r\n <\/tab>\r\n <\/backstage>\r\n<\/customUI><\/pre>\n
![\"Backstage-Bereich](\"..\/fileadmin\/_temp_\/2026_02\/pic_501_002.png\")
<\/p>\nVerschieden Bildgrößen<\/h2>\n
Weitere Schritte<\/h2>\n
\n
Bilder in der Tabelle MSysResources hinterlegen<\/h2>\n
![\"Bilder](\"..\/fileadmin\/_temp_\/2026_02\/pic_501_004.png\")
<\/p>\nCallback-Funktion zum Einlesen der Bilder<\/h2>\n
Public Sub <\/span>loadImage(control, ByRef image)\r\n Set<\/span> image = amvGetImageFromResourcesByName(control)\r\nEnd Sub<\/span><\/pre>\nFunktion zum Lesen von Bildern aus MSysResources<\/h2>\n
Public <\/span>Declare PtrSafe Sub amvCopyMemory Lib \"Kernel32.dll\" Alias \"RtlMoveMemory\" (Destination As <\/span>Any, _\r\n Source As <\/span>Any, ByVal Length As Long<\/span>Ptr)\r\nPublic Function <\/span>amvGetImageFromResourcesByName(strName As Variant<\/span>) As <\/span>StdPicture\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>bytData() As Byte<\/span>\r\n Dim <\/span>bytRaw() As Byte<\/span>\r\n Dim <\/span>lngOffset As Long<\/span>\r\n Set<\/span> rst = CurrentDb.OpenRecordset( _\r\n \"SELECT Data.FileData FROM MSysResources WHERE Name = '\" & strName & \"'\", dbOpenSnapshot)\r\n If <\/span>rst.EOF Then<\/span> Exit Function<\/span>\r\n bytRaw = rst.Fields(0)\r\n lngOffset = bytRaw(0)\r\n ReDim bytData(UBound<\/span>(bytRaw) - lngOffset)\r\n amvCopyMemory bytData(0), bytRaw(lngOffset), UBound<\/span>(bytData)\r\n With<\/span> CreateObject(\"WIA.Vector\")\r\n .BinaryData = bytData\r\n Set<\/span> amvGetImageFromResourcesByName = .Picture\r\n End With<\/span>\r\nEnd Function<\/span><\/pre>\nDownloads zu diesem Beitrag<\/h2>\n