サブプロジェクト オブジェクトのコレクションが含まれています。
プロパティ
| 名前 |
|---|
| アプリケーション |
| Count |
| アイテム |
| Parent |
例
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
注:
同じ名前の 2 つのサブプロジェクトをプロジェクトに追加すると、プロジェクトは静的オブジェクトになり、プロジェクトに追加された追加のサブプロジェクトに関する情報は提供されません。 これは、同様の名前のサブプロジェクトのいずれかが削除された場合でも、プロジェクト ファイルの存続期間中は続行されます。
これを行うには、プロジェクト内のサブプロジェクトの 1 つのコピーを作成し、別のフォルダーに配置してから、もう一度プロジェクトに追加します。 サブプロジェクトは、新しいプロジェクトをレポートしたり、後でそのプロジェクトに追加されるサブプロジェクトに関する情報を提供したりしません。
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。