Teil 7: VBA: Geburts-/Festtagskalender

Das Makro BildWählen ist mit der gleichnamigen Symbolschaltfläche verknüpft. Es markiert die aktuelle Grafik (über die Textmarke "Bild") und ruft dann das Word-eigene Dialogfeld zum Einfügen von Grafiken auf. Sobald der Anwender die gewünschte Grafikdatei gewählt und die OK-Schaltfläche des Dialogs betätigt hat (If .Display = -1 Then), fügt das Makro die Grafik anstelle der aktuellen Markierung in das Dokument ein.

Die Argumente der dafür zuständigen AddPicture- Methode sorgen für eine vollständige Übernahme der Bildinhalte, was eine Weitergabe des Kalenderdokuments ohne die Grafikdatei ermöglicht. Damit das Makro auch künftig auf die eingefügte Grafik zugreifen kann, hinterlegt es diese zum Abschluss seiner Tätigkeit wieder mit der Textmarke Bild.

Ein Klick auf die Kalender-speichern-Schaltfläche in der Symbolleiste aktiviert das gleichnamige Makro. Es ruft das Word-eigene Dialogfeld zum Speichern von Dokumenten auf. Den vorgeschlagenen Dateinamen setzt das Makro aus dem Präfix Monatskalender_, dem zweistellig formatierten Monat, einem Unterstrich sowie dem vierstelligen Jahr des aktuellen Kalenders zusammen.

Im Falle des Kalenders für den Januar 2004 lautet der vorgeschlagene Dateiname also Monatskalender_ 01_2004.doc. Sobald der Anwender das Dialogfeld mit der Speichern- Schaltfläche schließt, sichert die SaveAs-Methode das Dokument mit dem gestalteten Kalenderblatt unter dem angegebenen Dateinamen. : tr