グループ オプション ボタン
次の例では、 GroupName プロパティを使用して、同じフォームに OptionButton コントロールの 2 つのグループを作成します。
この例を利用するには、次のコード例をフォームのスクリプト エディターにコピーします。 コードを実行するには、Open イベントをアクティブにするためにフォームを開く必要があります。 フォームには OptionButton1 から OptionButton5 まで命名された 5 つの OptionButton コントロールが含まれていることを確認してください。
Sub Item_Open()
set OptionButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton1")
set OptionButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton2")
set OptionButton3 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton3")
set OptionButton4 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton4")
set OptionButton5 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton5")
OptionButton1.Caption = "Widgets"
OptionButton2.Caption = "Widgets"
OptionButton3.Caption = "Widgets"
OptionButton1.GroupName = "Widgets"
OptionButton2.GroupName = "Widgets"
OptionButton3.GroupName = "Widgets"
OptionButton4.Caption = "Gadgets-Group2"
OptionButton5.Caption = "Gadgets-Group2"
OptionButton4.GroupName = "Gadgets-Group2"
OptionButton5.GroupName = "Gadgets-Group2"
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示