InvisibleApp.DialogFont-Eigenschaft (Visio)

  • Artikel

Gibt Informationen zu den Schriftarten zurück, die in den Dialogfeldern von Microsoft Visio verwendet werden. Schreibgeschützt.

Syntax

Ausdruck. DialogFont

Ausdruck Eine Variable, die ein InvisibleApp-Objekt darstellt.

Rückgabewert

IFontDisp

HinwBemerkungeneise

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 von allen Visual Basic-Projekten in Visio automatisch verwiesen.

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

  1. Wählen Sie in der Gruppe Code auf der Registerkarte Entwicklertoolsdie Option Visual Basic aus.

  2. Wählen Sie im Menü Ansicht die Option Objektbrowser aus.

  3. Wählen Sie in der Liste Projekt/Bibliothekdie Option stdole aus.

  4. Ü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 vermittelt, 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.