Объект "Подпроекты" (Project)

Содержит коллекцию объектов подпроекта .

Свойства

Имя
Application
Count
Item
Parent

Примеры

Использование объекта-коллекции Subprojects

Используйте подпроекты (индекс), где индекс — это индекс подпроекта или имя суммарной задачи проекта, для возврата одного объекта подпроекта . Следующий пример предотвращает автоматическое внесение изменений, внесенных в указанный подпроект в проекте master, в исходный проект.

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

Получение объекта-коллекции подпроектов

Используйте свойство Subprojects для возврата коллекции подпроектов . Следующий пример предупреждает пользователя, если какой-либо из подпроектов активного проекта отсутствует на жестком диске.

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

Примечание.

Если вы добавите в проект два подпроекта с одинаковыми именами, он станет статическим объектом и не будет предоставлять информацию о каких-либо дополнительных подпроектах, добавленных в ваш проект. Это продолжается в течение всего времени существования файла проекта, даже если один из подпроектов с похожими именами удаляется.

Вы можете попробовать сделать копию одного из подпроектов проекта, поместить его в другую папку, а затем снова добавить в проект. Подпроекты не сообщают о новом проекте или не предоставляют информацию о каких-либо подпроектах, которые добавляются к этому проекту впоследствии.

См. также

• Объектная модель Project

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.