Document.HeaderFooterFont-Eigenschaft (Visio)

  • Artikel

Gibt die Schriftart an, die für den Text in der Kopf- und Fußzeile verwendet wird. Lese-/Schreibzugriff.

Syntax

Ausdruck. HeaderFooterFont

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Rückgabewert

IFontDisp

Hinweise

COM bietet eine Standardimplementierung eines Schriftartobjekts mit der IFontDisp-Schnittstelle zusätzlich zur zugrunde liegenden Systemschriftartunterstützung. Die IFontDisp-Schnittstelle macht die Eigenschaften eines Schriftartobjekts verfügbar und wird in der stdole-Typbibliothek als StdFont-Objekt implementiert, das in Microsoft Visual Basic erstellt werden kann. In allen VBA-Projekten (Visual Basic for Applications) in Microsoft Visio wird automatisch auf die stdole-Typbibliothek verwiesen.

So rufen Sie Informationen zum StdFont-Objekt ab, das die IFontDisp-Schnittstelle unterstützt:

  1. Klicken Sie in der Gruppe Code auf der Registerkarte Entwicklertools auf Visual Basic.

  2. Klicken Sie im Menü Ansicht auf Objektbrowser.

  3. Klicken Sie in der Liste Projekt/Bibliothek auf stdole.

  4. Überprüfen Sie unter Klassen die Klasse mit dem Namen StdFont.

Weitere Informationen zur IFontDisp-Schnittstelle finden Sie im Microsoft Plattform SDK auf der MSDN-Website (Microsoft Developer Network).

Das Festlegen der HeaderFooterFont-Eigenschaft entspricht dem Festlegen von Werten im Feld Schriftart im Dialogfeld Schriftart auswählen (klicken Sie auf die Registerkarte Datei , klicken Sie auf Drucken, klicken Sie auf Seitenansicht, in der Gruppe Vorschau auf Kopfzeile & Fußzeile, und klicken Sie dann auf Schriftart auswählen).

Beispiel

Der folgende Beispielcode zeigt, wie Sie die HeaderFooterFont-Eigenschaft verwenden, um einen Verweis auf das aktuelle Font-Objekt abzurufen und die Textschriftart des Dokuments auf Arial ohne Fettdruck festzulegen.

 
Public Sub HeaderFooterFont_Example()  
 
    Dim objStdFont As StdFont 
 
    Set objStdFont = ThisDocument.HeaderFooterFont  
    objStdFont.Name = "Arial"  
    objStdFont.Bold = False 
    Set ThisDocument.HeaderFooterFont = objStdFont  
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.