Je schneller ich Ergebnisse beim Programmieren erhalten möchte, desto ungeduldiger werde ich, wenn mich kleinteilige, sich ständig wiederholende Aufgaben aufhalten. In diesem Fall ist vom Anlegen von Schaltflächen die Rede. Ich hätte gern so schnell wie möglich Schaltflächen, welche die von mir gewünschte Beschriftung, einen passenden Namen und je nach Situation ein Icon enthalten. Diese Icons sollen nach meinen Wünschen gestaltet sein – also beispielsweise mit transparentem Hintergrund und ohne Rahmen, sodass nur das Icon und die Beschriftung erscheinen und die Schriftfarbe und Schriftbreite diese als Schaltfläche von den Beschriftungen abhebt. Schließlich sollte auch noch direkt der VBA-Editor mit der passenden Ereignisprozedur geöffnet werden. Das alles umfasst einige Schritte, und auch wenn man eine Schaltfläche einmal formatiert hat und diese dann kopiert und als Vorlage für eine neue Schaltfläche verwendet, muss man noch einige Aspekte selbst hinzufügen. In diesem Beitrag stelle ich daher einen Assistenten vor, mit dem wir Schaltflächen wesentlich schneller und komfortabler anlegen können.<\/b><\/p>\n
![\"Individuelles](\"..\/fileadmin\/_temp_\/2026_02\/pic_1563_001.png\")
<\/p>\n
Bild 1: Individuelles Schaltflächendesign<\/span><\/b><\/p>\n Wenn ich in einem Formular eine neue Schaltfläche wie die aus Bild 1 erstellen möchte, sind einige Schritte nötig:<\/p>\n Bild 1: Individuelles Schaltflächendesign<\/span><\/b><\/p>\n Damit ist die erste Schaltfläche angelegt.<\/p>\n Für die folgenden Schaltflächen wird es etwas einfacher, weil wir nun eine Schaltfläche haben, die wir bereits kopieren und als neue Schaltfläche einfügen können. Dennoch müssen wir dann folgende Einstellungen erneut vornehmen:<\/p>\n Mit der nachfolgend beschriebenen Lösung wollen wir diese Schritte erheblich vereinfachen.<\/p>\n Dazu programmieren wir ein Formular, das die wichtigsten Konfigurationsmöglichkeiten für eine neue Schaltfläche enthält. In weiteren Beiträgen (siehe Ende des Beitrags) zeigen wir, wie die Lösung in einen Steuerelement-Wizard umgewandelt wird.<\/p>\n Damit wollen wir nur noch die sich unterscheidenden Merkmale anpassen – und auch das werden wir vereinfachen. Wir wollen hier nur noch die folgenden Aktionen durchführen müssen:<\/p>\n Wenn wir die Beschriftung eingegeben haben, wollen wir daraus automatisch einen Steuerelementnamen ableiten. Wenn die Beschriftung etwa Weitersuchen <\/b>lautet, soll automatisch der Steuerelementname cmdWeitersuchen <\/b>vorgeschlagen werden.<\/p>\n Wenn sich die Beschriftung aus mehreren Wörtern zusammensetzt, soll der Steuerelementname aus dem gleichen Text bestehen – allerdings werden Leerzeichen entfernt, Umlaute und Sonderzeichen werden ersetzt und jedes neue Wort wird großgeschrieben. Aus der Beschriftung Nächste Fundstelle <\/b>wird so cmdNaechsteFundstelle<\/b>.<\/p>\n Dieser Steuerelementname soll natürlich angepasst werden können, bevor das Steuerelement angelegt wird.<\/p>\n Die Lösung besteht aus dem Formular aus Bild 2. In das Feld Beschriftung <\/b>geben wir den Text ein, der auf der Schaltfläche angezeigt werden soll. Daraus wird automatisch der Name für das Steuerelement generiert, den wir anschließend nach Bedarf anpassen können.<\/p>\n Bild 2: Das Formular frmButtonWizard<\/span><\/b><\/p>\n Über die Schaltfläche Auswahl <\/b>können wir einen Dateidialog öffnen, mit dem wir Icons auswählen, die für die zu erstellenden Schaltflächen verwendet werden sollen. Diese werden anschließend in den Bildsteuerelementen darunter angezeigt. Mit dem Feld Filter <\/b>können wir gezielt nach den Namen der Bild-Dateien suchen. Wenn mehr Bilder vorhanden sind, als angezeigt werden können, erlauben die beiden Schaltflächen mit dem Pfeil nach oben und dem Pfeil nach unten das Blättern in den Icons.<\/p>\n Die Vorschau zeigt an, wie die fertige Schaltfläche später aussehen wird. Mit einem Klick auf Schaltfläche anlegen erstellen wir schließlich vollautomatisch die gewünschte Schaltfläche.<\/p>\n Bild 3 zeigt einige Beispiele für solche Schaltflächen.<\/p>\n Bild 3: Einige Beispielschaltflächen, die mit der Lösung aus diesem Beitrag erstellt wurden<\/span><\/b><\/p>\n Um die gewünschten Einstellungen vorzunehmen, stellen wir ein entsprechendes Formular bereit. Dieses legen wir in einer neuen, leeren Datenbankdatei unter dem Namen frmButtonWizard <\/b>an.<\/p>\n Hier wollen wir zuerst die Beschriftung des Steuerelements abfragen und daraus direkt bei der Eingabe den Namen des Steuerelements ableiten. Dazu fügen wir die Steuerelemente aus Bild 4 hinzu.<\/p>\n Bild 4: Erster Entwurf des Formulars<\/span><\/b><\/p>\n Die erste Schaltfläche heißt txtBeschriftung<\/b>, die zweite txtSteuerelementname<\/b>. Die Schaltfläche nennen wir cmdAktualisieren<\/b>.<\/p>\n Der Benutzer soll die Beschriftung der Schaltfläche in txtBeschriftung<\/b> eingeben. Dadurch lösen wir bei der Eingabe eines jeden einzelnen Zeichens das Ereignis Bei Änderung <\/b>aus. Für dieses hinterlegen wir die folgende Ereignisprozedur:<\/p>\n Diese ruft die Prozedur SteuerelementnameAktualisieren <\/b>auf und übergibt dieser den aktuellen Text des Textfeldes txtBeschriftung <\/b>als Parameter.<\/p>\n In dieser Prozedur (siehe Listing 1) erzeugen wir mit Split <\/b>aus den einzelnen Wörtern der Beschriftung ein Array namens strWoerter <\/b>– dieses kann auch nur ein Element enthalten. Danach durchlaufen wir alle Elemente des Arrays und fügen diese aneinander. Dabei wird das erste Zeichen eines jeden Wortes großgeschrieben und bei den übrigen wird die Schreibweise beibehalten. So wird aus Datensatz anlegen <\/b>der Text DatensatzAnlegen<\/b>.<\/p>\n Listing 1: Aktualisieren des Steuerelementnamens<\/span><\/b><\/p>\n Danach ersetzt die Prozedur die Umlaute und das scharfe ß durch die entsprechenden Umschreibungen. Schließlich lassen wir den aktuellen Text noch durch die Funktion AlphanumerischBereinigen<\/b> laufen, in der alle Zeichen außer a-z, A-Z und 0-9 entfernt werden. Diese Funktion sehen wir in Listing 2.<\/p>\n Listing 2: Entfernen nicht-alphanumerischer Zeichen<\/span><\/b><\/p>\n Es kann auch sein, dass der Benutzer den so generierten Steuerelementnamen manuell anpassen möchte. Das kann er tun und wir stellen dann den Wert einer Variablen namens bolManuellGeaendert<\/b>, die wir wie folgt deklarieren, auf True <\/b>ein:<\/p>\n Bei einer Änderung im Textfeld txtSteuerelementname <\/b>wird die folgende Ereignisprozedur ausgelöst, welche bolManuellGeaendert <\/b>auf True <\/b>einstellt, den aktuellen Text in einer TempVar<\/b>-Variablen speichert (so kann diese beispielsweise bei Laufzeitfehlern nicht gelöscht werden) und anschließend die Routine VorschauAktualisieren <\/b>aufruft, die wir weiter unten beschreiben:<\/p>\n Schließlich fehlt noch die Schaltfläche cmdAktualisieren<\/b>. Diese soll, falls der Benutzer den Steuerelementnamen bereits manuell angepasst hat, die automatische Aktualisierung wieder aktivieren, indem sie erstens eine initiale Aktualisierung durchführt und bolManuellGeaendert <\/b>wieder auf False <\/b>einstellt.<\/p>\n Dadurch werden folgende Änderungen in txtBeschriftung <\/b>wieder in txtSteuerelementname <\/b>übertragen:<\/p>\n Nun folgt ein spannender Teil. Wie wollen wir die Auswahl eines Icons realisieren? Wir könnten einfach einen Dateiauswahl-Dialog öffnen und den Benutzer das gewünschte Icon auswählen lassen. Dieses würden wir anschließend in der Tabelle MSysResources <\/b>der Zieldatenbank speichern und für die Schaltfläche verwenden.<\/p>\n Praktischer wäre es jedoch, wenn wir die einmal verwendeten Icons direkt auch in unserer Lösung speichern und für die weitere Verwendung direkt zur Auswahl anbieten – zum Beispiel, wenn wir ein Add-In aus dieser Lösung erstellen. Dann hätte der Benutzer einen Schritt weniger bei bereits verwendeten Icons und könnte diese direkt auswählen.<\/p>\n Also legen wir dazu eine neue Tabelle namens tblResources <\/b>an, die genauso aufgebaut ist wie die Tabelle MSysResources<\/b>. Genau genommen haben wir diese einfach kopiert und unter dem Namen tblResources <\/b>wieder eingefügt. Den Entwurf dieser Tabelle sehen Sie in Bild 5.<\/p>\n Bild 5: Tabelle zum Speichern der Icons<\/span><\/b><\/p>\n Damit kommen wir zur Schaltfläche cmdBilderAuswaehlen<\/b>, die im Entwurf aus Bild 6 markiert ist.<\/p>\n Bild 6: Vollständiger Entwurf des Formulars frmButtonWizard<\/span><\/b><\/p>\n Diese soll einen Dateiauswahl<\/b>-Dialog anzeigen und die Bilder anschließend in der Tabelle tblResources <\/b>speichern. Dazu deklarieren wir eine Konstante, welche die dabei zu verwendende Tabelle enthält:<\/p>\n Die Prozedur cmdBilderAuswaehlen <\/b>ruft die Funktion ChooseFiles <\/b>auf, die im Modul mdlFileDialog <\/b>enthalten ist und den Standard-Office-Dialog zum Auswählen von Dateien verwendet. Sie speichert die ausgewählten Dateipfade in der Variablen strFileList<\/b>. Wenn diese nicht leer ist, unterteilt sie diese Liste jeweils am Pipe-Zeichen (|<\/b>) und schreibt die einzelnen Pfade in ein Array namens strFiles<\/b>.<\/p>\n Für jede Datei ruft sie einmal die Routine BildInRessourcenSpeichern <\/b>auf und übergibt dieser den Dateipfad und den Namen der Tabelle, in der das Icon gespeichert werden soll.<\/p>\n Nachdem alle Icons gespeichert sind, ruft sie die Prozedur LoadImages <\/b>auf, die dafür sorgt, dass die aktuell in der Tabelle tblResources <\/b>gespeicherten Icons in der Matrix im Formular angezeigt werden.<\/p>\n Wie die Routine LoadImages <\/b>funktioniert, erläutern wir im Detail im Beitrag Icons in der Datenbank verwalten <\/b>(www.access-im-unternehmen.de\/1564<\/b>).<\/p>\n Und wie wir die Matrix aus Bild-Steuerelementen erzeugen, die Sie im Formularentwurf sehen, beschreiben wir im Beitrag Schaltflächen-Matrix per VBA erzeugen <\/b>(www.access-im-unternehmen.de\/1562<\/b>).<\/p>\n Damit haben wir nun die Textfelder, in denen die Beschriftung und der Steuerelementname gespeichert sind. Außerdem haben wir eine Funktion, mit der wir die als Icons zu verwendenden Bilder in die Tabelle tblResources <\/b>laden können und eine Matrix aus Bild-Steuerelementen, mit denen wir die verfügbaren Icons anzeigen. Außerdem haben im oben angegebenen Artikel beschrieben, wie wir zwischen den Bildern navigieren können, wenn die Tabelle tblResources <\/b>mehr Bilder enthält, als auf einen Blick angezeigt werden können.<\/p>\n Damit kommen wir zur Anzeige der Vorschau für die zu erstellende Schaltfläche. Diese soll immer aktualisiert werden, wenn wir eine Änderung an der Beschriftung oder dem gewählten Icon vornehmen.<\/p>\n Die dadurch ausgelöste Prozedur heißt VorschauAktualisieren<\/b> (siehe Listing 3). Sie referenziert die als Beispielschaltfläche angelegte Schaltfläche namens cmdVorschau<\/b>. Dann holt sie mit der Funktion Schriftabmessungen <\/b>die Breite und die Höhe für die anzuzeigende Beschriftung und liefert diese mit den beiden Parametern lngBreite <\/b>und lngHoehe <\/b>zurück (diese Funktion beschreiben wir im Anschluss).<\/p>\n Listing 3: Aktualisieren der Schaltflächen-Vorschau<\/span><\/b><\/p>\n Als Höhe des Steuerelements legen wir 480 Pixel fest. Mit Me.Painting = False<\/b> verhindern wir während des Vorgangs das Neuzeichnen des Formulars, damit es nicht zu unnötigem Flackern kommt.<\/p>\n Dann lesen wir aus der TempVar<\/b>-Variablen Picture <\/b>den zuvor zwischengespeicherten Namen des zu verwendenden Icons aus. Hat diese Zeichenkette die Länge 0<\/b>, leeren wir die Eigenschaft PictureData <\/b>der Schaltfläche, tragen die Beschriftung ein, legen die Breite auf 480 <\/b>plus der ermittelten Breite für die Beschriftung aus lngWidth <\/b>fest und stellen die Ausrichtung auf linksbündig ein. Schließlich legen wir für die Variable bolAktivieren <\/b>den Wert True <\/b>fest. Dieser wird später ausgewertet, um die Schaltfläche zum Anlegen der neuen Schaltfläche zu aktivieren oder zu deaktivieren.<\/p>\n Wenn die TempVar<\/b>-Variable gefüllt ist, gelangen wir in den Else<\/b>-Zweig der Bedingung. Hier rufen wir die Funktion GetPictureDataFromResourcesByName <\/b>auf, die wir im Modul mdlPictureData <\/b>finden. Dieser Funktion übergeben wir den Namen des einzulesenden Icons, die Tabelle, in der sich das Icon befindet (hier tblResources<\/b>) und eine leere Variant<\/b>-Variable, die wir mit dem zu verwendenden Bild-Objekt füllen. Liefert die Funktion den Wert True <\/b>als Ergebnis zurück, konnte das Bild erfolgreich eingelesen werden.<\/p>\n Dann weisen wir den Inhalt von varPictureData <\/b>der Eigenschaft PictureData <\/b>der Vorschau-Schaltfläche zu und stellen PictureType <\/b>auf 2 <\/b>ein.<\/p>\n Enthält die TempVar<\/b>-Variable Beschriftung <\/b>einen Text, wird dieser für die Eigenschaft Caption <\/b>als Beschriftung eingetragen. Außerdem wird die Breite auf 600 Pixel plus der zuvor ermittelten Breite der Beschriftung eingestellt und bolAktivieren <\/b>erhält den Wert True<\/b>.<\/p>\n bolAktivieren <\/b>hat anschließend nur den Wert False<\/b>, wenn weder eine Bildbeschriftung vorliegt noch ein Bild ausgewählt wurde.<\/p>\n Danach aktivieren wir mit Me.Painting = True <\/b>das Neuzeichnen des Formulars wieder und aktualisieren die Anzeige der Vorschau-Schaltfläche.<\/p>\n Danach prüfen wir den Wert von bolAktivieren<\/b>. Hat diese Variable den Wert True<\/b>, aktivieren wir die Schaltfläche cmdSchaltflaecheAnlegen<\/b>, andernfalls deaktivieren wir diese. Damit stellen wir sicher, dass die Schaltfläche nicht angelegt werden kann, wenn noch Informationen fehlen.<\/p>\n Die Funktion Schriftabmessungen <\/b>soll die Breite ermitteln, welche die angegebene Beschriftung in den für die Schaltfläche eingestellten Schrifteigenschaften einnehmen wird (siehe Listing 4). Damit stellen wir sicher, dass die Schaltfläche in genau der richtigen Breite angelegt wird.<\/p>\nSchaltflächen – der Standardweg<\/h2>\n
<\/p>\n\n
\n
Schaltflächen einfacher hinzufügen<\/h2>\n
\n
Funktionsweise der Lösung<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2026_02\/pic_1563_006.png\")
<\/p>\n![\"Einige](\"..\/fileadmin\/_temp_\/2026_02\/pic_1563_007.png\")
<\/p>\nFormular zum Anlegen von Steuerelementen<\/h2>\n
![\"Erster](\"..\/fileadmin\/_temp_\/2026_02\/pic_1563_002.png\")
<\/p>\nPrivate Sub <\/span>txtBeschriftung_Change()\r\n Call<\/span> SteuerelementnameAktualisieren( _\r\n Me.txtBeschriftung.Text)\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>SteuerelementnameAktualisieren(strBeschriftung As String<\/span>)\r\n Dim <\/span>strTemp As String<\/span>\r\n Dim <\/span>strWoerter() As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n If <\/span>bolManuellGeaendert = True<\/span> Then<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(strBeschriftung) = 0 Then<\/span>\r\n strWoerter = Split<\/span>(strBeschriftung, \" \")\r\n For i = LBound<\/span>(strWoerter) To UBound<\/span>(strWoerter)\r\n strTemp = strTemp & StrConv(Left<\/span>(strWoerter(i), 1), vbUpperCase) & Mid<\/span>(strWoerter(i), 2)\r\n Next<\/span> i\r\n strTemp = Replace<\/span>(strTemp, \" \", \"\")\r\n strTemp = Replace<\/span>(strTemp, \"ä\", \"ae\")\r\n strTemp = Replace<\/span>(strTemp, \"ö\", \"oe\")\r\n strTemp = Replace<\/span>(strTemp, \"ü\", \"ue\")\r\n strTemp = Replace<\/span>(strTemp, \"Ä\", \"Ae\")\r\n strTemp = Replace<\/span>(strTemp, \"Ö\", \"Oe\")\r\n strTemp = Replace<\/span>(strTemp, \"Ü\", \"Ue\")\r\n strTemp = Replace<\/span>(strTemp, \"ß\", \"ss\")\r\n strTemp = AlphanumerischBereinigt(strTemp)\r\n strTemp = \"cmd\" & strTemp\r\n Else<\/span>\r\n strTemp = \"\"\r\n End If<\/span>\r\n Me.txtSteuerelementname = strTemp\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>AlphanumerischBereinigt(ByVal strEingabe As String<\/span>) As String<\/span>\r\n Dim <\/span>i As Long<\/span>\r\n Dim <\/span>strErgebnis As String<\/span>\r\n Dim <\/span>strZeichen As String<\/span>\r\n For i = 1 To Len<\/span>(strEingabe)\r\n strZeichen = Mid$(strEingabe, i, 1)\r\n If <\/span>strZeichen Like \"[A-Za-z0-9]\" Then<\/span>\r\n strErgebnis = strErgebnis & strZeichen\r\n End If<\/span>\r\n Next<\/span> i\r\n AlphanumerischBereinigt = strErgebnis\r\nEnd Function<\/span><\/pre>\nPrivate <\/span>bolManuellGeaendert As Boolean<\/span><\/pre>\nPrivate Sub <\/span>txtSteuerelementname_Change()\r\n bolManuellGeaendert = True<\/span>\r\n TempVars(\"Steuerelementname\") = _\r\n Me.txtSteuerelementname.Text\r\n Call<\/span> VorschauAktualisieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAktualisieren_Click() \r\n Me.txtFilter.SetFocus\r\n Call<\/span> SteuerelementnameAktualisieren( _\r\n Nz(Me.txtBeschriftung, \"\"))\r\n bolManuellGeaendert = False<\/span>\r\nEnd Sub<\/span><\/pre>\nIcon auswählen<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2026_02\/pic_1563_003.png\")
<\/p>\n![\"Vollständiger](\"..\/fileadmin\/_temp_\/2026_02\/pic_1563_004.png\")
<\/p>\nPrivate <\/span>Const cStrResourcesTable As String<\/span> _\r\n = \"tblResources\"<\/pre>\nPrivate Sub <\/span>cmdBilderAuswaehlen_Click()\r\n Dim <\/span>strFilelist As String<\/span>\r\n Dim <\/span>strFiles() As String<\/span>\r\n Dim <\/span>var As Variant<\/span>\r\n \r\n Me.txtFilter.SetFocus\r\n strFilelist = ChooseFiles\r\n If <\/span>Len<\/span>(strFilelist) > 0 Then<\/span>\r\n strFiles = Split<\/span>(strFilelist, \"|\")\r\n For Each var In strFiles\r\n BildInRessourcenSpeichern CStr(var), _\r\n cStrResourcesTable\r\n Next<\/span> var\r\n Call<\/span> LoadImages\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nVorschau der Schaltfläche anzeigen<\/h2>\n
Private Sub <\/span>VorschauAktualisieren()\r\n Dim <\/span>lngHoehe As Long<\/span>\r\n Dim <\/span>lngBreite As Long<\/span>\r\n Dim <\/span>varPictureData As String<\/span>\r\n Dim <\/span>bolAktivieren As Boolean<\/span>\r\n With<\/span> Me.cmdVorschau\r\n Call<\/span> Schriftabmessungen(lngBreite, lngHoehe)\r\n .Height = 480 \r\n Me.Painting = False<\/span>\r\n If <\/span>Len<\/span>(TempVars(\"Picture\")) = 0 Then<\/span>\r\n .PictureData = Null\r\n .Caption = Nz(TempVars(\"Beschriftung\"), \"\")\r\n .Width = lngBreite + 480\r\n .Alignment = 2\r\n If <\/span>Not<\/span> Len<\/span>(.Caption) = 0 Then<\/span>\r\n bolAktivieren = True<\/span>\r\n End If<\/span>\r\n Else<\/span>\r\n If <\/span>GetPictureDataFromResourcesByName(TempVars(\"Picture\"), varPictureData, cStrResourcesTable) = True<\/span> Then<\/span>\r\n .PictureData = varPictureData\r\n .PictureType = 2\r\n If <\/span>Not<\/span> Len<\/span>(TempVars(\"Beschriftung\")) = 0 Then<\/span>\r\n .Caption = \" \" & TempVars(\"Beschriftung\")\r\n .Width = lngBreite + 600\r\n .Alignment = 1\r\n Else<\/span>\r\n .Caption = \"\"\r\n .Width = 480\r\n .Alignment = 2\r\n End If<\/span>\r\n bolAktivieren = True<\/span>\r\n End If<\/span>\r\n End If \r\n Me.Painting = True<\/span>\r\n Me.cmdVorschau.Requery \r\n End With<\/span>\r\n If <\/span>Len<\/span>(Nz(TempVars(\"Steuerelementname\"), \"\")) = 0 Then<\/span>\r\n bolAktivieren = False<\/span>\r\n End If<\/span>\r\n If <\/span>bolAktivieren = True<\/span> Then<\/span>\r\n Me.cmdSchaltflaecheAnlegen.Enabled = True<\/span>\r\n Else<\/span>\r\n Me.cmdSchaltflaecheAnlegen.Enabled = False<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDie Funktion „Schriftabmessungen“<\/h2>\n
Public Function <\/span>Schriftabmessungen(lngBreite As Long<\/span>, lngHoehe As Long<\/span>)\r\n Dim <\/span>strFontname As String<\/span>\r\n Dim <\/span>lngFontsize As Long<\/span>\r\n Dim <\/span>lngFontweight As Long<\/span>\r\n Dim <\/span>bolFontItalic As Boolean<\/span>\r\n Dim <\/span>bolFontUnderline As Boolean<\/span>\r\n Dim <\/span>strText As String<\/span>\r\n WizHook.Key = 51488399\r\n \r\n With<\/span> Me.cmdVorschau\r\n strFontname = .FontName\r\n lngFontsize = .FontSize\r\n lngFontweight = .FontWeight\r\n bolFontItalic = .FontItalic\r\n bolFontUnderline = .FontUnderline\r\n If <\/span>Len<\/span>(TempVars(\"Picture\")) = 0 Then<\/span>\r\n strText = Nz(TempVars(\"Beschriftung\"), \"\")\r\n Else<\/span>\r\n strText = \" \" & TempVars(\"Beschriftung\")\r\n End If<\/span>\r\n End With<\/span>\r\n Call<\/span> WizHook.TwipsFromFont(strFontname, lngFontsize, lngFontweight, bolFontItalic, bolFontUnderline, 0, strText, _\r\n 0, lngBreite, lngHoehe)\r\nEnd Function<\/span><\/pre>\n