Propiedad InvisibleApp.DialogFont (Visio)

Devuelve información sobre las fuentes que Microsoft Visio usa en sus cuadros de diálogo. Solo lectura.

Sintaxis

expresión. DialogFont

Expresión Variable que representa un objeto InvisibleApp .

Valor devuelto

IFontDisp

Comentarios

Use esta propiedad para mostrar los cuadros de diálogo en la misma fuente que los cuadros de diálogo de Visio.

El Modelo de objetos componentes (COM) proporciona una implementación estándar de un objeto Font con la interfaz IFontDisp por encima del soporte de fuentes del sistema subyacente. La interfaz IFontDisp expone las propiedades de un objeto de fuente y se implementa en la biblioteca de tipos stdole como un objeto StdFont que se puede crear en Microsoft Visual Basic. A dicha biblioteca se hace referencia automáticamente en todos los proyectos de Visual Basic de Visio.

Para obtener información sobre el objeto StdFont que admite la interfaz IFontDisp

1. En el grupo Código de la pestaña Desarrollador , elija Visual Basic.

2. En el menú Ver , elija Explorador de objetos.

3. En la lista Proyecto/biblioteca , elija stdole.

4. En la sección Clases, examine la clase denominada StdFont.

Ejemplo:

El código de ejemplo siguiente muestra cómo obtener una referencia a un objeto StdFont que transmite información sobre las fuentes de la aplicación y cómo imprimir esa información en la ventana Inmediato.

 
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.