既に指定されているデータ ハンドラーと指定されたオプションを使用して PickerDialog を表示します。
構文
式。Show (IsMultiSelect, ExistingResults)
式PickerDialog オブジェクトを返す式。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| IsMultiSelect | 省略可能 | Boolean | PickerDialog ユーザー インターフェイスで複数のアイテム選択機能を提供するかどうかを指定します。 |
| ExistingResults | 省略可能 | PickerResults | PickerDialog ユーザー インターフェイスの既存の PickerResults を格納します。 These results are displayed in the selected item control. |
戻り値
PickerResults
例
次のコードは、 PickerDialog プロパティを設定し、 PickerDialog を表示します。
Dim objPickerDialog As PickerDialog
Dim objPickerProperties As PickerProperties
Dim objPickerProperty As PickerProperty
Dim objPickerExistingResults As PickerResults
Dim objPickerExistingResult 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 のサポートおよびフィードバックを参照してください。