Application.MakeFieldEnterprise メソッド (Project)
ローカル ユーザー設定フィールドを、エンタープライズ ユーザー設定フィールドとして Project Server に追加します。
構文
式。 MakeFieldEnterprise
( _FieldID_
, _FieldName_
, _LookupTableName_
)
expressionApplication オブジェクトを 表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
FieldID | 必須 | 長整数型 (Long) | ローカル ユーザー設定フィールドの id 番号。 } 引数 FieldID を取得するのにには、 FieldNameToFieldConstant メソッドを使用します。 |
FieldName | 必須 | String | 作成するエンタープライズ ユーザー設定フィールドの名前を指定します。 |
LookupTableName | 省略可能 | String | 作成する参照テーブルの名前を指定します。 既定値は空の文字列 ("") です。 |
戻り値
ブール型 (Boolean)
注釈
MakeFieldEnterprise メソッドが正常に完了すると、Project に "フィールドが Project Server に正常に追加されました" というメッセージが表示されます。 プロジェクトのエンタープライズ フィールドを表示して使用するには、Project Professionalを終了して再起動する必要があります。
MakeFieldEnterprise メソッドは、 ユーザー設定フィールド] ダイアログ ボックスで エンタープライズへのフィールドの追加のコマンドに対応します。 メソッドは、Project Professional でのみ使用します。 Project Professional は Project Server に接続している必要があります。
例
To use the following example, create a local custom field, such as a task text custom field, named LocalWithLUT2Enterprise. Add a lookup table for the custom field that has some values.
Sub Local2Enterprise()
Dim localId As Long
localId = FieldNameToFieldConstant(FieldName:="LocalWithLUT2Enterprise")
MakeFieldEnterprise FieldID:=localId, FieldName:="NewTaskTextFromLocal", LookupTableName:="NewTaskTextLUTFromLocal"
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。