Application.DialogFont-Eigenschaft (Visio)
Gibt Informationen zu den Schriftarten zurück, die in den Dialogfeldern von Microsoft Visio verwendet werden. Schreibgeschützt.
Syntax
Ausdruck. DialogFont
expression Eine Variable, die ein Application-Objekt darstellt.
Rückgabewert
IFontDisp
Hinweise
Verwenden Sie diese Eigenschaft, um Ihre Dialogfelder in der gleichen Schriftart wie die Visio-Dialogfelder anzuzeigen.
COM (Component Object Model) 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. Auf die stdole-Typbibliothek wird automatisch von allen Visual Basic-Projekten in Visio verwiesen.
So rufen Sie Informationen zum StdFont-Objekt ab, das die IFontDisp-Schnittstelle unterstützt
Wählen Sie in der Gruppe Code auf der Registerkarte Entwicklertoolsdie Option Visual Basic aus.
Wählen Sie im Menü Ansicht die Option Objektbrowser aus.
Wählen Sie in der Liste Projekt/Bibliothekdie Option stdole aus.
Überprüfen Sie unter Klassen die Klasse mit dem Namen StdFont.
Beispiel
Der folgende Beispielcode zeigt, wie Sie einen Verweis auf ein StdFont-Objekt abrufen, das Informationen zu den Anwendungsschriftarten übermittelt, und wie Sie diese Informationen im Direktfenster drucken.
Sub DialogFont_Example()
Dim objStdFont As StdFont
Set objStdFont = Application.DialogFont
With objStdFont
Debug.Print .Bold
Debug.Print .CharSet
Debug.Print .Italic
Debug.Print .Name
Debug.Print .Size
Debug.Print .Strikethrough
Debug.Print .Underline
Debug.Print .Weight
End With
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.