包含一組 子專案 物件。
屬性
| 名稱 |
|---|
| Application |
| 數目 |
| 項目 |
| Parent |
範例
使用 Subprojects 集合物件
使用 Subprojects (index) ，其中 index 是子專案索引或專案摘要任務名稱，以返回單一 子專案 物件。 下面範例防止對主專案中指定子專案的變更自動套用於來源專案。
ActiveProject.Subprojects("Arcadia Bay Online Catalog Plan").LinkToSource = False
取得子專案集合物件
使用 Subprojects 屬性，可以傳回一個 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
注意事項
如果你在專案中加入兩個同名子專案，該專案將變成靜態物件，且不會提供新增子專案的資訊。 即使移除了同名子專案，這個過程也會持續到專案檔案的存續期間。
你可以嘗試複製專案中的一個子專案，放到另一個資料夾，然後再把它加入專案。 子專案不會報告新專案，也不會提供後續新增的子專案資訊。
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。