Subprojects-Objekt (Project)

Enthält eine Auflistung von Subproject-Objekten .

Eigenschaften

Name
Anwendung
Count
Element
Parent

Beispiele

Verwenden des Subprojects-Auflistungsobjekts

Verwenden Sie Unterprojekte (Index), wobei index der Name des Teilprojektindex oder projektzusammenfassungsvorgangs ist, um ein einzelnes Subproject-Objekt zurückzugeben. Das folgende Beispiel verhindert, dass Änderungen, die am angegebenen Teilprojekt in einem Hauptprojekt vorgenommen werden, automatisch auch im Quellprojekt vorgenommen werden.

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

Abrufen des Subprojects-Auflistungsobjekts

Verwenden Sie die Subprojects -Eigenschaft zum Zurückgeben einer Subprojects -Auflistung. Das folgende Beispiel warnt den Benutzer, wenn sich Teilprojekte des aktiven Projekts nicht auf der Festplatte befinden.

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

Hinweis

Wenn Sie einem Projekt zwei Unterprojekte mit demselben Namen hinzufügen, wird es zu einem statischen Objekt und stellt keine Informationen zu weiteren Teilprojekten bereit, die dem Projekt hinzugefügt werden. Dies wird während der Lebensdauer der Projektdatei fortgesetzt, auch wenn eines der ähnlich benannten Teilprojekte entfernt wird.

Sie können dies versuchen, indem Sie eine Kopie eines der Teilprojekte in Ihrem Projekt erstellen, es in einem anderen Ordner ablegen und es dann ihrem Projekt erneut hinzufügen. Teilprojekte melden das neue Projekt nicht oder stellen Keine Informationen zu Teilprojekten bereit, die diesem Projekt anschließend hinzugefügt werden.

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.