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