次の方法で共有

PickerResults.Add メソッド (Office)

  • [アーティクル]

PickerResult オブジェクトを PickerResults コレクションに追加します。

構文

式。Add (Id、 DisplayName、 Type、 SIPId、 ItemData、 SubItems)

式PickerResults オブジェクトを返す式。

パラメーター

名前 必須 / オプション データ型 説明
Id 必須 String PickerResult の識別子を表します。
DisplayName 必須 String PickerResult の表示名を表します。
Type 必須 String PickerResult の種類を表します。
SIPId 省略可能 String 現時点ではサポートされていません。 SIPId は、Office Communication Server の識別子です。 これは、人の選択シナリオにのみ使用されます。
ItemData 省略可能 バリアント型 表示されていない項目バインド データ。
SubItems 省略可能 バリアント型 PickerResult の目的フィールド データまたは表示目的以外のフィールド データを表示します。 これは、PickerDialog で列値を渡すために使用されます。

戻り値

PickerResult

例

次のコードは 、PickerDialog プロパティを設定し、 PickerDialog を表示します。

Dim objPickerDialog As PickerDialog 
Dim objPickerProperties As PickerProperties 
Dim objPickerProperty As PickerProperty 
Dim objPickerExistingResults As PickerResults 
Dim objPickerExistingResults As PickerResult 
Dim objPickerResults As PickerResults 
 
' Configure the Picker Dialog properties. 
Set objPickerDialog = Application.PickerDialog 
objPickerDialog.DataHandlerId = "{000CDF0A-0000-0000-C000-000000000046}" 
objPickerDialog.Title = "Sample Picker Dialog" 
Set objPickerProperties = objPickerDialog.Properties 
Set objPickerProperty = objPickerProperties.Add("SiteUrl", "https://my", msoPickerFieldtypeText) 
Set objPickerExistingResults = objPickerDialog.CreatePickerResults 
Set objPickerExistingResult = objPickerExistingResults.Add("johndoe@contoso.com", "John Doe", "User") 
 
' Show the Picker Dialog and get the results. 
Set objPickerResults = objPickerDialog.Show(True, objPickerExistingResult)

関連項目

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

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