Propriété Alignment – Exemple
L’exemple suivant illustre la propriété Alignment utilisée avec plusieurs contrôles OptionButton . Dans cet exemple, l’utilisateur peut modifier l’alignement en cliquant sur un bouton ToggleButton.
Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient les contrôles suivants :
- Deux contrôles OptionButton nommés OptionButton1 et OptionButton2
- Un contrôle ToggleButton nommé 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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.