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
No grupo Código na guia Desenvolvedor , escolha Visual Basic.
No menu Exibir , escolha Navegador de Objetos.
Na lista Projeto/Biblioteca , escolha stdole.
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.