OutlineCodes-Objekt (Project)
Enthält eine Auflistung von OutlineCode -Objekten.
Hinweise
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.
Hinweis
[!HINWEIS] OnlyLookUpTableCodes -Eigenschaft kann festgelegt werden, nachdem die Nachschlagetabelle Einträge enthält. Wenn Sie versuchen, OnlyLookUpTableCodes vor dem Erstellen der Nachschlagetabelle Tabelleneinträge festlegen, ist das Ergebnis Laufzeitfehler 7, "nicht genügend Arbeitsspeicher."
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
| Name |
|---|
| Add |
Eigenschaften
| Name |
|---|
| Application |
| Count |
| Item |
| Parent |
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.