Alinear el título de un botón de opción con el control

El ejemplo siguiente ilustra el uso de la propiedad Alignment con varios controles OptionButton. En este ejemplo, el usuario puede cambiar la alineación haciendo clic en un togglebutton.

Para utilizar este ejemplo, copie el código en el Editor de secuencias de comandos de un formulario. Para ejecutar el código debe abrir el formulario con el fin de que se produzca el evento Open. Asegúrese de que el formulario contiene los controles siguientes:

• Dos controles OptionButton denominados OptionButton1 y OptionButton2.

• Un control ToggleButton denominado ToggleButton1.

Dim OptionButton1 
Dim OptionButton2 
Dim ToggleButton1 
 
Sub Item_Open() 
 Set OptionButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("OptionButton1") 
 Set OptionButton2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("OptionButton2") 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("ToggleButton1") 
 
 OptionButton1.Alignment = 0 'fmAlignmentLeft 
 OptionButton2.Alignment = 0 '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 
 
Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "Left Align" 
 OptionButton1.Alignment = 0 'fmAlignmentLeft 
 OptionButton2.Alignment = 0 'fmAlignmentLeft 
 Else 
 ToggleButton1.Caption = "Right Align" 
 OptionButton1.Alignment = 1 'fmAlignmentRight 
 OptionButton2.Alignment = 1 'fmAlignmentRight 
 End If 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.