オプションボタンを使ったアンケートフォームを作成する

Word2013で、オプションボタンを使ったアンケートフォームを作成します。

元になるアンケート用紙を作成し、リボンの［開発］－コントロールグループの［▼］－ActiveXコントロールの［オプション　ボタン］をクリックします。

オプションボタンが文書に配置されます。
オプションボタンの上で右クリックし［コントロールの書式設定］をクリックします。

オブジェクトの書式設定ダイアログボックスが開くので、［レイアウト］タブにし［前面］をクリックします。これでドラッグすることで自由な位置に配置できます。

オプションボタンをクリックし選択し、リボンの［オプション］をクリックします。

プロパティダイアログボックスが開くので、［Caption］にタイトルを入力します。

上と同様に複数のオプションボタンを配置します。ここでは下記のアンケートを作成しました。

社内旅行の実施について

• 実施してほしい
• どちらでもいい
• 中止してほしい

リボンの［Visual Basic］をクリックします。

下記のコードを入力します。

■文書が開いた時のイベント、Document_Openにオプションボタンを初期化する下記のコードを入力します。

Private Sub Document_Open()
    OptionButton1.Value = False
    OptionButton2.Value = False
    OptionButton3.Value = False
End Sub

■オプションボタン1がクリックされ変更された時のイベント、OptionButton1_Changeに別のオプションボタンをOFFにするコードを入力します。

Private Sub OptionButton1_Change()
    If OptionButton1.Value = True Then
        OptionButton2.Value = False
        OptionButton3.Value = False
    End If
End Sub

■オプションボタン2がクリックされ変更された時のイベント、OptionButton2_Changeに別のオプションボタンをOFFにするコードを入力します。

Private Sub OptionButton2_Change()
    If OptionButton2.Value = True Then
        OptionButton1.Value = False
        OptionButton3.Value = False
    End If
End Sub

■オプションボタン3がクリックされ変更された時のイベント、OptionButton3_Changeに別のオプションボタンをOFFにするコードを入力します。

Private Sub OptionButton3_Change()
    If OptionButton3.Value = True Then
        OptionButton1.Value = False
        OptionButton2.Value = False
    End If
End Sub

Wordマクロ有効文書で保存し、再度開きます。
オプションボタンは、Document_Openイベントで全てOFFになっています。

クリックするとONになります。

別のオプションボタンをクリックするとONになり、他はOFFになります。