Alignment プロパティの例

  • [アーティクル]

次の例では、いくつかの OptionButton コントロールで使用される Alignment プロパティを示します。 この例では、 ユーザーは ToggleButton をクリックして配置を変更できます。

この例を使用するには、このサンプル コードをフォームの宣言部分にコピーします。 フォームに以下のコントロールが含まれていることを確認してください。

  • 2 つのオプション ボタン ( OptionButton ) コントロール (OptionButton1 と OptionButton2)
  • トグル ボタン ( ToggleButton ) コントロール (ToggleButton1)
Private Sub UserForm_Initialize() 
 OptionButton1.Alignment = fmAlignmentLeft 
 OptionButton2.Alignment = fmAlignmentLeft 
 
 OptionButton1.Caption = "Alignment with AutoSize" 
 OptionButton2.Caption = "Choice 2" 
 OptionButton1.AutoSize = True 
 OptionButton2.AutoSize = True 
 
 ToggleButton1.Caption = "Left Align" 
 ToggleButton1.WordWrap = True 
 ToggleButton1.Value = True 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "Left Align" 
 OptionButton1.Alignment = fmAlignmentLeft 
 OptionButton2.Alignment = fmAlignmentLeft 
 Else 
 ToggleButton1.Caption = "Right Align" 
 OptionButton1.Alignment = fmAlignmentRight 
 OptionButton2.Alignment = fmAlignmentRight 
 End If 
End Sub

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

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