Partager via

Objet OutlineCode (Project)

  • Article

Représente un code hiérarchique local dans Project. L’objet OutlineCode est membre de la collection OutlineCodes .

Utilisation de l'objet OutlineCode

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.

Sub CreateLocationOutlineCode() 
    Dim objOutlineCode As OutlineCode 
 
    Set objOutlineCode = ActiveProject.OutlineCodes.Add( _
        pjCustomResourceOutlineCode1, "Location") 
 
    objOutlineCode.OnlyLookUpTableCodes = True 
 
    DefineLocationCodeMask objOutlineCode.CodeMask 
    EditLocationLookupTable objOutlineCode.LookupTable 
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

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).

Méthodes

Nom
Delete

Propriétés

Nom
Application
CodeMask
DefaultValue
FieldID
Index
LinkedFieldID
LookupTable
MatchGeneric
Name
OnlyCompleteCodes
OnlyLeaves
OnlyLookUpTableCodes
Parent
RequiredCode
SortOrder

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.