Alinhar a legenda de um botão de opção com o controle
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.
To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. Verifique se o formulário contém os seguintes controles:
Dois controles OptionButton denominados OptionButton1 e OptionButton2.
Um 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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Enviar e exibir comentários de