Kalender forever

Teil 6: VBA: Geburts-/Festtagskalender

26.9.2008 von Redaktion pcmagazin

ca. 0:45 Min

Ratgeber

Die Userform_Initialize-Prozedur bereitet das Dialogfeld unmittelbar nach dem Aufruf auf seine Aufgaben vor. Sie verschiebt das Dialogfeld an den rechten Rand des Word-Programmfensters, um die Sicht auf das Dokument so wenig wie möglich zu behindern. Anschließend liest sie die Namen aller installierten Schriftarten (Application.FontNames) in das Listenfeld ein.

VBA: Geburts-/Festtagskalender — Bildauswahl: Mit wenigen Mausklicks fügen Sie dem Monatskalender ein Foto oder eine Grafik Ihrer Wahl hinzu.

Zuvor bringt die QuickSort-Routine die Schriftartnamen in eine alphabetische Reihenfolge, was die Übersichtlichkeit des Dialogs deutlich verbessert. Mit dem Markieren der aktuell gewählten Kalenderschriftart innerhalb des Listenfelds ist die Aufgabe der Prozedur erledigt. Sobald der Anwender eine andere Schriftart innerhalb des Listenfelds anwählt, tritt die Ereignisprozedur lstSchriftarten_Click in Aktion. Diese weist der Kalenderüberschrift sowie der gesamten Kalendertabelle die aktuell gewählte Schriftart zu.

Der Zugriff auf die genannten Dokumentbestandteile erfolgt über die Textmarken Monat- Jahr und Tabelle. Sobald der Anwender auf die Schaltfläche OK klickt, wird die aktuell gewählte Schriftart endgültig übernommen (cmdOK_Click-Prozedur). Ein Klick auf die Abbrechen- Schaltfläche dagegen weist der Überschrift und der Kalendertabelle wieder die ursprüngliche Schriftart zu. Die ausführende Ereignisprozedur ist cmdCancel_Click.