Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
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
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.