Propriedade Document.VBProject (Visio)

Retorna um objeto de automação que pode ser utilizado para controlar o projeto Microsoft VBA (Visual Basic for Applications) do documento. Somente leitura.

Sintaxe

expressão. VBProject

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

Valor de retorno

Objeto

Comentários

Para obter informações sobre o objeto devolvido pela propriedade VBProject , siga estes passos:

Para obter informações sobre o objeto retornado pela propriedade VBProject

1. No grupo Código , no separador Programador , clique em Visual Basic.

2. No Editor do Visual Basic, no menu Ferramentas, clique em Referências.

3. Na caixa de diálogo Referências, clique em Microsoft Visual Basic for Applications Extensibility 5.3 e, em seguida, clique em OK.

4. No menu Exibir, clique em Pesquisador de Objetos.

5. Na lista Projeto/Biblioteca, selecione a biblioteca de tipos VBIDE.

6. Na lista Classes, examine a classe denominada VBProject.

Se ainda não existir nenhum projeto VBA no documento, a propriedade VBProject criará um.

A partir do Visio 2002, a propriedade VBProject 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 Visual Basic. 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 imprimir os nomes das bibliotecas referidas por um projeto do VBA na janela Immediate.

Antes de executar este código, certifique-se de que marcar a caixa Definições de Macros do Programador na página Definições de Macros da caixa de diálogo Centro de Confiança (clique no separador Ficheiro, clique em Opções, Clique em Centro de Confiança e, em seguida, clique em Definições do Centro de Confiança).

Public Sub VBProject_Example()  
 
    Dim varThisProject As Variant 
    Dim intReferences As Integer 
 
    Set varThisProject = ThisDocument.VBProject  
 
    intReferences = varThisProject.References.Count  
    While intReferences > 0  
        Debug.Print varThisProject.References(intReferences).Name  
        intReferences = intReferences - 1  
    Wend 
 
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.