Bewerken

Delen via

Alignment property example

  • Artikel

The following example demonstrates the Alignment property used with several OptionButton controls. In this example, the user can change the alignment by clicking a ToggleButton.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains the following controls:

  • Two OptionButton controls named OptionButton1 and OptionButton2.
  • A ToggleButton named 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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.