OutlineCode オブジェクト (Project)

Project のローカル アウトライン コードを表します。 OutlineCode オブジェクトは、OutlineCodes コレクションのメンバーです。

OutlineCode オブジェクトの使い方

次の例は、ユーザー設定のアウトライン コードを追加してリソースの位置を格納します。さらに、そのアウトライン コードを設定して、参照テーブルに指定されている値のみをリソースと関連付けるようにします。

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

注釈

アウトライン コードは、階層構造のテキスト参照テーブルを持つローカルのユーザー定義フィールドの一種です。 階層構造のテキスト参照テーブルを持つテキスト型のエンタープライズ ユーザー設定フィールドがアウトライン コードとして機能します。 OutlineCodes コレクションを取得するには、OutlineCodes プロパティを使用します。 ローカル アウトライン コードを OutlineCodes コレクションに追加するには、 Add メソッドを使用します。 エンタープライズ ユーザー設定フィールドを追加するには、Project Web Appまたは Project Server Interface (PSI) を使用する必要があります。

メソッド

名前
Delete

プロパティ

名前
Application
CodeMask
DefaultValue
FieldID
インデックス
LinkedFieldID
LookupTable
MatchGeneric
名前
OnlyCompleteCodes
OnlyLeaves
OnlyLookUpTableCodes
Parent
RequiredCode
SortOrder

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。