Propriété Application.DialogFont (Visio)
Renvoie des informations sur les polices que Microsoft Visio utilise dans ses boîtes de dialogue. En lecture seule.
Syntaxe
expression. DialogFont
expressionUne variable qui représente un objetApplication.
Valeur renvoyée
IFontDisp
Remarques
Utilisez cette propriété pour afficher vos boîtes de dialogue dans la même police que les boîtes de dialogue Visio.
COM (Component Object Model) fournit une implémentation standard d'un objet Font avec l'interface IFontDisp au-dessus de la prise en charge de polices par le système sous-jacent. L’interface IFontDisp expose les propriétés d’un objet police et est implémentée dans la bibliothèque de types stdole en tant qu’objet StdFont qui peut être créé dans Microsoft Visual Basic. La bibliothèque de types stdole est automatiquement référencée à partir de tous les projets Visual Basic dans Visio.
Pour obtenir des informations à propos de l'objet StdFont qui prend en charge l'interface IFontDisp :
Dans le groupe Code sous l’onglet Développeur , choisissez Visual Basic.
Dans le menu Affichage , choisissez Explorateur d’objets.
Dans la liste Projet/Bibliothèque , choisissez stdole.
Sous Classes, examinez la classe nommée StdFont.
Exemple
L’exemple de code suivant montre comment obtenir une référence à un objet StdFont qui transmet des informations sur les polices d’application, et comment imprimer ces informations dans la fenêtre Exécution.
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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.