Using Excel VBA to Set Vertical Alignment – 5 Examples

This is an overview.

Syntax:

expression.VerticalAlignment

Expression is a variable that represents a cell-format object.

These are common properties that you can use:

How to Launch the VBA Editor in Excel

To access the Microsoft Visual Basic window, go to the Developer tab and click Visual Basic. You can also open it by pressing Alt+F11.

Go to the Insert tab and click Module to open the code Module.

This is the sample dataset.

Method 1 – Vertically Align Cell Content to the Top

• To align the content in B5:D12 vertically to the top, use the following VBA code:

Sub VerticalAlignmentTop()
Range("B5:D12").VerticalAlignment = xlTop
End Sub

Range("B5:D12").VerticalAlignment = xlTop

Method 2 – Excel VBA to Set Vertical Alignment to Bottom

• To align content to the bottom in B5:D12, use the code below.

Sub VerticalAlignmentBottom()
Range("B5:D12").VerticalAlignment = xlBottom
End Sub

Range("B5:D12").VerticalAlignment = xlBottom

Method 3 – Using Excel VBA to Set Vertical Alignment to the Center

To align content vertically to the center, use the following code:

Sub VerticalAlignmentCenter()
Range("B5:D12").VerticalAlignment = xlCenter
End Sub

Range("B5:D12").VerticalAlignment = xlCenter

Read More: How to Format Cell and Center Text with Excel VBA

Method 4 – Applying xlJustify for Vertical Alignment

• To spread content evenly from top to bottom in justified alignment, use the following code:

Sub VerticalAlignmentJustify()
Range("B5:D12").VerticalAlignment = xlJustify
End Sub

Range("B5:D12").VerticalAlignment = xlJustify

Method 5 – Applying a Distributed Vertical Alignment

To apply a Distributed vertical alignment, use the following code:

Sub VerticalAlignmentDistributed()
Range("B5:D12").VerticalAlignment = xlDistributed
End Sub

Range("B5:D12").VerticalAlignment = xlDistributed

Excel VBA to Align Text Vertically and Horizontally

Apply vertical and horizontal alignment simultaneously using this VBA code:

Range("B5:D12").VerticalAlignment = xlCenter
Range("B5:D12").HorizontalAlignment = xlCenter
End Sub

Range("B5:D12").VerticalAlignment = xlCenter
Range("B5:D12").HorizontalAlignment = xlCenter

Using Excel VBA to Set Horizontal Alignment

i. Excel VBA to Set Horizontal Alignment to the Center

Sub HorizontalAlignmentCenter()
Range("B5:D12").HorizontalAlignment = xlCenter
End Sub

Range("B5:D12").HorizontalAlignment = xlCenter

ii. Excel VBA to Set Horizontal Alignment to the Left

Sub HorizontalAlignmentLeft()
Range("B5:D12").HorizontalAlignment = xlLeft
End Sub

Range("B5:D12").HorizontalAlignment = xlLeft

iii. Excel VBA Horizontal Alignment to the Right

Sub HorizontalAlignmentRight()
Range("B5:D12").HorizontalAlignment = xlRight
End Sub

Range("B5:D12").HorizontalAlignment = xlRight

Read More: Excel VBA Horizontal Alignment

Excel VBA to Wrap Text

Use the following VBA code to wrap text in D5:D12.

Sub Wraptext()
  Range("D5:D12").Wraptext = True
End Sub

Range("D5:D12").Wraptext = True

Frequently Asked Questions

1. How do I change the default vertical alignment in Excel?

Go to the Home tab or use a VBA code. You can also use the Alignment tab in Format Cells.

2. How do I disable wrap text in Excel VBA?

Declare the Wraptext property False (Range.Wraptext = False).

Things to Remember

• You may need to enable the wrap text option before applying vertical alignment to a cell.
• Adjust the cell width and height.

Download Practice Workbook

Related Article

• Excel VBA to Rotate Text to 90 Degrees