Subprojects object (Project)

Contains a collection of Subproject objects.

Properties

Name
Application
Count
Item
Parent

Examples

Using the Subprojects collection object

Use Subprojects (index), where index is the subproject index or project summary task name, to return a single Subproject object. The following example prevents changes made to the specified subproject in a master project from being automatically made to the source project.

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

Getting the Subprojects collection object

Use the Subprojects property to return a Subprojects collection. The following example cautions the user if any of the subprojects in the active project are not on the hard disk.

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) &amp; _ 

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

 End If 

Next SubProj

Note

If you add two subprojects with the same name to a project, it will become a static object, and will not provide information about any additional subprojects that are added to your project. This continues for the life of the project file, even if one of the similarly named subprojects is removed.

You can try this by making a copy of one of the subprojects in your project, placing it into another folder, and then adding it to your project again. Subprojects will not report the new project, or provide information about any subprojects that are added to that project afterwards.

See also

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.