OutlineCodes-Objekt (Project)

Enthält eine Auflistung von OutlineCode -Objekten.

HinwBemerkungeneise

Ein Gliederungscode ist ein lokales benutzerdefiniertes Feld, das eine hierarchische textnachschlagetabelle verfügt. Benutzerdefinierte Enterprise-Felder vom Typ Text, die als fungieren hierarchische Nachschlagetabellen Gliederungscodes an. Verwenden Sie die OutlineCodes -Eigenschaft, um eine OutlineCodes -Auflistung zurückzugeben. Verwenden Sie die Add -Methode, um einen lokalen Gliederungscode OutlineCodes -Auflistung hinzugefügt. Zum Hinzufügen eines benutzerdefinierten Enterprise-Felds müssen Sie Project Web App oder Project Server Interface (PSI) verwenden.

Beispiel

Verwenden des OutlineCode-Auflistungsobjekts

Im folgenden Beispiel wird ein benutzerdefinierter Gliederungscode hinzugefügt, um den Speicherort von Ressourcen zu speichern, und der Gliederungscode wird so konfiguriert, dass einer Ressource nur die in der Nachschlagetabelle angegebenen Werte zugeordnet werden können.

Sub CreateLocationOutlineCode() 

 

 Dim objOutlineCode As OutlineCode 

 

 Set objOutlineCode = ActiveProject.OutlineCodes.Add( _ 

 pjCustomResourceOutlineCode1, "Location") 

 

 DefineLocationCodeMask objOutlineCode.CodeMask 

 EditLocationLookupTable objOutlineCode.LookupTable 

 

 objOutlineCode.OnlyLookUpTableCodes = True 

 

End Sub 

 

 

Sub DefineLocationCodeMask(objCodeMask As CodeMask) 

 objCodeMask.Add _ 

 Sequence:=pjCustomOutlineCodeUppercaseLetters, _ 

 Length:=2, Separator:="." 

 

 objCodeMask.Add _ 

 Sequence:=pjCustomOutlineCodeUppercaseLetters, _ 

 Separator:="." 

 

 objCodeMask.Add _ 

 Sequence:=pjCustomOutlineCodeUppercaseLetters, _ 

 Length:=3, Separator:="." 

End Sub 

 

 

Sub EditLocationLookupTable(objLookupTable As LookupTable) 

 Dim objStateEntry As LookupTableEntry 

 Dim objCountyEntry As LookupTableEntry 

 Dim objCityEntry As LookupTableEntry 

 

 Set objStateEntry = objLookupTable.AddChild("WA") 

 objStateEntry.Description = "Washington" 

 

 Set objCountyEntry = objLookupTable.AddChild("KING", _ 

 objStateEntry.UniqueID) 

 objCountyEntry.Description = "King County" 

 

 Set objCityEntry = objLookupTable.AddChild("SEA", _ 

 objCountyEntry.UniqueID) 

 objCityEntry.Description = "Seattle" 

 

 Set objCityEntry = objLookupTable.AddChild("RED", _ 

 objCountyEntry.UniqueID) 

 objCityEntry.Description = "Redmond" 

 

 Set objCityEntry = objLookupTable.AddChild("KIR", _ 

 objCountyEntry.UniqueID) 

 objCityEntry.Description = "Kirkland" 

End Sub

Methoden

Eigenschaften

Siehe auch

Project-Objektmodell

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.