Aligning Vertically

[Megatron-Lives]

Are there command buttons for aligining vertically in a cell?

(There are buttons for Align Left, Right Center; how about Top, Bottom, and Center?)

 

[Juan Pablo González]

Not that I know of. I imagine you could build your own macro to do this, and assing buttons in your toolbar to them.

_________________
Regards,

Juan Pablo G.
MrExcel.com Consulting
This message was edited by Juan Pablo G. on 2002-09-04 16:12

 

[elgringo56]

Juan is correct, you can very easilly build a macro to do this, this was done with the macro recorder and will center data vertically in the cell. Have fun.

Sub CenterVInCell()
'
' CenterVInCell Macro
' Macro recorded 9/4/2002 by Larry Shuler
'

'
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
End Sub

 

[Juan Pablo González]

Yes, you can even clean that macro a lot, leaving only the VerticalAlignment part. I would also make a check to see if the selection is really a range.

 

[elgringo56]

Or just

Range("E18").VerticalAlignment = xlCenter