Kalender forever

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.

VBA: Geburts-/Festtagskalender

© Archiv

Bildauswahl: Mit wenigen Mausklicks fügen Sie dem Monatskalender ein Foto oder eine Grafik Ihrer Wahl hinzu.

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

Mehr zum Thema

Mit unseren Tipps schießen Sie im Winter bessere Fotos.
Licht, Kälte und mehr

Im Winter fordern Lichtverhältnisse, Motivumgebungen und Kälte Kamera und Fotografen. Wir verraten, worauf Sie achten müssen.
SEPA-Überweisungen: Fragen und Antworten zur SEPA-Umstellung.
FAQ zu IBAN, Überweisung & Co.

Die SEPA-Umstellung bringt IBAN, BIC und mehr für Überweisungen. Unser FAQ beantwortet alle wichtigen Fragen.
Netflix
Streaming

Preise, kompatible Geräte, Datenrate, Serien- und Filmangebot von Netflix: Wir beantworten die wichtigsten Fragen rund um den Streaming-Dienst.
Tipps zum leisen PC
BIOS-Tricks, Passivkühlung und mehr

Die Komponenten eines PCs erzeugen Hitze. Lüfter sorgen meist für eine lästige Geräuschkulisse. Mit unseren Tricks wird Ihr PC flüsterleise.
SSD Mythen Tipps
Solid State Disk

SSD-Tuning - was ist wahr, was ist falsch? Wir verraten, welche SSD-Mythen Sie vergessen können und welche Tipps wirklich helfen.