HorizontalAlignment VerticalAlignment

 　　VBA里面的Range对象的HorizontalAlignment属性和VerticalAlignment属性，分别是用来控制单元格对齐方式的，前者为为水平对齐，后者为垂直对齐方式。下面重点给大家介绍这两个属性的用法。

　　水平对齐方式的值(默认值=xlGeneral)，当然，还有其它的对齐方式如下：

　　常量 　　　　　　　　　　　水平位置

　　xlGeneral 　　　　　　　　　　　标准

　　xlLeft 　　　　　　　　　　　　靠左

　　xlCenter 　　　　　　　　　　　中央

　　xlRight 　　　　　　　　　　　　靠右

　　xlFill 　　　　　　　　　　　　　填充

　　xlJustify 　　　　　　　　　　　调节对齐

　　xlCenterAcrossSelection 　　　选择范围内中央对齐

　　xlDistributed 　　　　　　　　　平均对齐

　　而垂直对齐方式的值(默认值=xlCenter)，同样，它也有其它的对齐方式如下：

　　常量 　　　　垂直位置

　　xlTop 　　　　　靠上

　　xlCenter 　　　　中央

　　xlBottom　　　　靠下

　　xlFill 　　　　　填充

　　xlJustify 　　　　调节对齐

　　xlDistributed 　　平均对齐

　　①例子

　　Dim range1 As Range

　　Set range1 = Range("A1")

　　range1.HorizontalAlignment = xlCenter

　　range1.VerticalAlignment = xlTop

　　②例子

　　Range("A1:C4").Value = "文言文"

　　Range("A1:C1").HorizontalAlignment = xlLeft

　　Range("A2:C2").HorizontalAlignment = xlCenter

　　Range("A3:C3").HorizontalAlignment = xlRight

　　Range("A4:C4").HorizontalAlignment = xlDistributed

　　Range("A1:A4").VerticalAlignment = xlTop

　　Range("B1:B4").VerticalAlignment = xlCenter

　　Range("C1:C4").VerticalAlignment = xlBottom