Compartir a través de

Propiedad Document.VBProject (Visio)

  • Artículo

Devuelve un objeto de automatización que puede utilizar para controlar el proyecto de Microsoft Visual Basic para Aplicaciones (VBA) del documento. Solo lectura.

Sintaxis

expresión. Vbproject

Expresión Variable que representa un objeto Document .

Valor devuelto

Objeto

Comentarios

Para obtener información sobre el objeto devuelto por la propiedad VBProject , siga estos pasos:

Para obtener información acerca del objeto devuelto por la propiedad VBProject

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

  2. En el Editor de Visual Basic, en el menú Herramientas, haga clic en Referencias.

  3. En el cuadro de diálogo Referencias, haga clic en Extensibilidad 5.3 de Microsoft Visual Basic para Aplicaciones y, a continuación, en Aceptar.

  4. En el menú Ver, haga clic en Examinador de objetos.

  5. En la lista Proyecto/Biblioteca, seleccione la biblioteca de tipo VBIDE.

  6. En la lista Clases, examine la clase denominada VBProject.

Si no existe ningún proyecto de VBA en el documento, la propiedad VBProject crea uno.

Comenzando por Visio 2002, la propiedad VBProject genera una excepción si está ejecutando en un entorno mejorado de seguridad y el administrador del sistema ha bloqueado el acceso al genera una excepción si está ejecutando en un entorno mejorado de seguridad y el administrador del sistema ha bloqueado el acceso al modelo de objetos de Visual Basic. No hay ninguna forma mediante la interfaz de usuario o mediante programación de activar esto; el administrador del sistema debe activar (o desactivar) el acceso estableciendo una directiva de grupo. De esta forma, se ayuda a protegerse frente a los virus que se propagan si tienen acceso a los proyectos de Visual Basic en las plantillas que se suelen usar e inyectando el código del virus en ellas.

Ejemplo:

Esta macro de VBA muestra la manera de imprimir los nombres de bibliotecas a la que hace referencia un proyecto de VBA en la ventana Inmediata.

Antes de ejecutar este código, asegúrese de que la casilla Acceso de confianza al modelo de objetos de proyecto vba está seleccionada en Configuración de macro para desarrolladores en la página Configuración de macros del cuadro de diálogo Centro de confianza (haga clic en la pestaña Archivo , haga clic en Opciones, en Centro de confianzay, a continuación, haga clic en Configuración del Centro de confianza).

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

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.