次の方法で共有

Subprojects オブジェクト (Project)

  • [アーティクル]

Subproject オブジェクトのコレクションを格納します。

プロパティ

名前
アプリケーション
Count
アイテム
Parent

例

Subprojects コレクション オブジェクトの使用

1 つのSubproject オブジェクトを返すには、サブプロジェクト (index) を使用します。index はサブプロジェクト インデックスまたはプロジェクトサマリー タスク名です。 次の例には、ソース プロジェクトに自動的に行われる、指定したサブプロジェクトをマスター プロジェクトに加えられた変更ができなくなります。

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

Subprojects コレクション オブジェクトの取得

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 つのサブプロジェクトをプロジェクトに追加すると、そのサブプロジェクトは静的オブジェクトになり、プロジェクトに追加された追加のサブプロジェクトに関する情報は提供されません。 これは、同様の名前のサブプロジェクトのいずれかが削除された場合でも、プロジェクト ファイルの有効期間中も続きます。

これを試すには、プロジェクト内のいずれかのサブプロジェクトのコピーを作成し、別のフォルダーに配置してから、もう一度プロジェクトに追加します。 サブプロジェクトは、新しいプロジェクトを報告したり、後でそのプロジェクトに追加されたサブプロジェクトに関する情報を提供したりすることはありません。

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。