Objeto Subprojects (Project)

Contiene una colección de objetos Subproject .

Propiedades

Nombre
Aplicación
Count
Elemento
Parent

Ejemplos

Uso del objeto de colección Subprojects

Use Subproyectos (índice), donde index es el índice de subproyecto o el nombre de tarea de resumen del proyecto, para devolver un único objeto Subproject . 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

Obtención del 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 ningún subproyecto adicional que se agregue al proyecto. Esto continúa durante la vida útil del archivo de proyecto, incluso si se quita uno de los subproyectos con nombre similar.

Para probar esto, realice una copia de uno de los subproyectos del proyecto, lo coloque en otra carpeta y, a continuación, vuelva a agregarlo al proyecto. Los subproyectos no notificarán 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.