Propriedade Application.DialogFont (Visio)

Retorna informações sobre as fontes que o Microsoft Visio utiliza nas caixas de diálogos. Somente leitura.

Sintaxe

expressão. Dialogfont

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Ifontdisp

Comentários

Use essa propriedade para exibir suas caixas de diálogo na mesma fonte que as caixas de diálogo do Visio.

O COM (Component Object Model) fornece uma implementação padrão de um objeto de fonte com a interface IFontDisp acima do suporte de fonte do sistema subjacente. A interface IFontDisp expõe as propriedades de um objeto de fonte e é implementada na biblioteca de tipos de stdole como um objeto StdFont que pode ser criado no Microsoft Visual Basic. A referência à biblioteca de tipos do stdole é automaticamente feita por todos os projetos do Visual Basic no Visio.

Para obter informações sobre o objeto StdFont que suporte a inteface do IFontDisp

  1. No grupo Código na guia Desenvolvedor , escolha Visual Basic.

  2. No menu Exibir , escolha Navegador de Objetos.

  3. Na lista Projeto/Biblioteca , escolha stdole.

  4. Em Classes, examine a classe chamada StdFont.

Exemplo

O código de exemplo a seguir mostra como obter uma referência a um objeto StdFont que transmite informações sobre as fontes do aplicativo e como imprimir essas informações para a janela Imediata.

 
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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.