Propriedade Application.VBE (Visio)
Obtém o objeto raiz do modelo de objeto exposto pelo Microsoft Visual Basic for Applications (VBA). Use essa propriedade para acessar e manipular os projetos do VBA associados aos documentos atualmente abertos do Microsoft Visio. Somente leitura.
Sintaxe
expressão. VBE
expressão Uma variável que representa um Aplicativo objeto.
Valor de retorno
Objeto
Comentários
Para obter informações sobre o objeto retornado pela propriedade Vbe , siga estas etapas:
Para obter informações sobre o objeto retornado pela propriedade Vbe
No grupo Código na guia Desenvolvedor , clique em Visual Basic.
No Editor do Visual Basic, no menu Ferramentas, clique em Referências.
Na caixa de diálogo Referências, clique em Microsoft Visual Basic for Applications Extensibility 5.3 e, em seguida, clique em OK.
No menu Exibir, clique em Pesquisador de Objetos.
Na lista Projeto/Biblioteca, selecione a biblioteca de tipos VBIDE.
Na lista Classes, examine a classe denominada VBE.
A partir do Visio 2002, a propriedade Vbe eleva uma exceção caso você esteja executando em um ambiente de segurança aprimorada e o administrador do sistema tenha bloqueado o acesso ao modelo de objeto do VBA. Não existe uma interface de usuário ou uma forma programática de de ativar isso — o administrador do sistema deve ativar (ou desativar) o acesso pela configuração de uma Política de Grupo. Isso ajuda a proteger contra vírus que se espalham por meio do acesso aos projetos do Visual Basic em modelos comumente utilizados e da injeção do código do vírus neles.
Exemplo
Esta macro do VBA mostra como usar a propriedade Vbe para determinar quantos projetos do VBA estão abertos em uma instância do Visio.
Antes de executar esse código, certifique-se de que o acesso de confiança à caixa de seleção modelo de objeto de projeto do VBA esteja selecionado em Configurações de Macro do Desenvolvedor na página Configurações de Macro da caixa de diálogo Centro de Confiança (clique na guia Arquivo , clique em Opções, clique em Centro de Confiança e clique em Configurações da Central de Confiança).
Public Sub Vbe_Example()
Dim vbideVBE As VBIDE.VBE
Set vbideVBE = Visio.Application.Vbe
Debug.Print vbideVBE.VBProjects.Count
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.