Objet OutlineCodes (Project)
Contient une collection d’objets OutlineCode .
Remarques
Un code hiérarchique est un type de champ local personnalisé contenant une table de choix textuelle hiérarchique. Les champs Enterprise personnalisés de type Text dotés de tables de choix hiérarchiques agissent en tant que codes hiérarchiques. Utilisez la propriété OutlineCodes pour renvoyer une collection OutlineCodes . Utilisez la méthode Add pour ajouter un code hiérarchique local à la collection OutlineCodes . Pour ajouter un champ personnalisé d’entreprise, vous devez utiliser Project Web App ou l’interface Project Server (PSI).
Exemple
Utilisation de la collection OutlineCodes
L’exemple suivant montre comment ajouter un code hiérarchique personnalisé pour stocker l’emplacement des ressources et configurer ce code de sorte que seules les valeurs spécifiées dans la table de choix peuvent être associées à une ressource.
Remarque
La propriété OnlyLookUpTableCodes peut être définie seulement une fois que la table de choix contient des entrées. Si vous essayez de définir OnlyLookUpTableCodes avant de créer des entrées de table de choix, l’erreur d’exécution 7 indique que la mémoire est insuffisante.
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
Méthodes
| Nom |
|---|
| Add |
Propriétés
| Nom |
|---|
| Application |
| Count |
| Élément |
| Parent |
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.