Objeto de subproyectos (Project)

Contiene una colección de objetos de subproyecto .

Propiedades

Nombre
Aplicación
Count
Elemento
Parent

Ejemplos

Usar el objeto de colección Subprojects

Use Subproyectos (índice), donde índice es el nombre del índice del subproyecto o del resumen del proyecto, para devolver un único objeto de subproyecto. En el ejemplo siguiente se impide que los cambios realizados en el subproyecto especificado de un proyecto principal se realicen automáticamente en el proyecto de origen.

ActiveProject.Subprojects("Arcadia Bay Online Catalog Plan").LinkToSource = False

Obtener el objeto de colección Subprojects

Utilice la propiedad Subprojects para devolver un conjunto Subprojects. El ejemplo siguiente avisa al usuario si alguno de los subproyectos del proyecto activo no está en el disco.

Dim SubProj As Subproject 

For Each SubProj in ActiveProject.Subprojects 

 If UCase(Left$(SubProj.Path, 1)) <> "C" Then 

 MsgBox Right$(SubProj.Path, InStrRev(SubProj.Path, "\") - 1) & _ 

 " is not on your local hard disk.", vbExclamation 

 End If 

Next SubProj

Nota:

Si agrega dos subproyectos con el mismo nombre a un proyecto, se convertirá en un objeto estático y no proporcionará información sobre los subproyectos adicionales que se agreguen al proyecto. Esto continúa durante la vida útil del archivo de proyecto, incluso si se quita uno de los subproyectos con el mismo nombre.

Puede probarlo haciendo una copia de uno de los subproyectos del proyecto, colocándola en otra carpeta y añadiéndola de nuevo al proyecto. Los subproyectos no informarán sobre el nuevo proyecto ni proporcionarán información sobre los subproyectos que se agreguen a ese proyecto posteriormente.

Vea también

• Modelo de objetos de Project

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.