Exemplo da propriedade Alignment

O exemplo a seguir demonstra a propriedade Alignment usada com vários controles OptionButton . Neste exemplo, o usuário pode alterar o alinhamento clicando em um ToggleButton.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém os seguintes controles:

• Dois controles OptionButton denominados OptionButton1 e OptionButton2.
• Um ToggleButton denominado 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.