VBA CheckBox TextAlign Property

CheckBox TextAlign Property – Syntax

Please find the below syntax of CheckBox Text Align Property in Excel VBA.

CheckBoxName.TextAlign=1 or frmTextAlignLeft

Or

CheckBoxName.TextAlign=2 or frmTextAlignCenter

Or

CheckBoxName.TextAlign=3 or frmTextAlignRight

Where CheckBoxName represents the CheckBox object. In the above syntax we are using a ‘TextAlign’ property of CheckBox object to align CheckBox items.

CheckBox TextAlign Property – Explanation & Example

Here is the example for CheckBox Text Align Property. It will take you through how to align Text Align property of Check Box using Excel VBA. Here you can find or see how we are enable or disable Text Align of Check Box manually or using code.

CheckBox TextAlign Property: Change Manually

Please find the following details how we are changing manually Text Align of CheckBox property.

1. Go To Developer Tab and then click Visual Basic from the Code or Press Alt+F11.
2. Go To Insert Menu, Click UserForm. Please find the screenshot for the same.



3. Drag a CheckBox on the Userform from the Toolbox. Please find the below screen shot for your reference.



4. Right click on the Check Box. Click on properties from the available list.



5. Now you can find the properties window of CheckBox on the screen. Please find the screenshot for the same.



6. On the left hand side find ‘TextAlign’ property from the available Check Box properties.
7. On the right hand side you can find the list of available choices. You can choose one of the following. Please find the below screen shot for your reference.

a. 1 – frmTextAlignLeft
b. 2 – frmTextAlignCenter
c. 3 – frmTextAlignRight



CheckBox TextAlign Property:Change Using Code

Please find the following details how we are changing Text Align of CheckBox property with using Excel VBA code.

1. Go To Developer Tab and then click Visual Basic from the Code or Press Alt+F11.
2. Go To Insert Menu, Click UserForm. Please find the screenshot for the same.



3. Drag a CheckBox on the Userform from the Toolbox. Please find the screenshot for the same.



4. Double Click on the UserForm, and select the Userform event as shown in the below screen shot.



5. Now can see the following code in the module.

Private Sub UserForm_Initialize()

End Sub

6. Now, add the following example code1 to the in between above event procedure.

Example Code1:

'TextAlign Property of CheckBox Control
Private Sub UserForm_Initialize()
    With UserForm1
        'Align the text left side
        .CheckBox1.TextAlign = 1
    End With
End Sub

7. Now, Press ‘F5’ to see the following Output.

Output: If TextAlign =1 – frmTextAlignLeft
Please find the below output when we set Text Align property value is ‘1’. It is shown in the following Screen Shot.



Example Code2:

'TextAlign Property of CheckBox Control
Private Sub UserForm_Initialize()
    With UserForm1
        'centers the text of CheckBox
        .CheckBox1.TextAlign = 2
    End With
End Sub

8. Now, Press ‘F5’ to see the following Output.

Output: If TextAlign =2 – frmTextAlignCenter
Please find the below output when we set Text Align property value is ‘2’. It is shown in the following Screen Shot.



Example Code3:

'TextAlign Property of CheckBox Control
Private Sub UserForm_Initialize()
    With UserForm1
        'Align the text right side
        .CheckBox1.TextAlign = 3
    End With
End Sub

9. Now, Press ‘F5’ to see the following Output.

Output: If TextAlign =3 – frmTextAlignRight
Please find the below output when we set Text Align property value is ‘3’. It is shown in the following Screen Shot.