Excel VBAでセルの文字の配置（横位置、縦位置）の設定をする方法を記録します。
横位置は「HorizontalAlignment」プロパティ、縦位置は「VerticalAlignment」プロパティを使います。
< スポンサーリンク >
「HorizontalAlignment」、「VerticalAlignment」プロパティ
横位置
Rangeオブジェクト.HorizontalAlignment = 定数
定数
| 定数 | 水平位置 |
|---|---|
| xlGeneral | 標準 |
| xlLeft | 左詰め |
| xlCenter | 中央揃え |
| xlRight | 右詰め |
| xlFill | 繰り返し |
| xlJustify | 両端揃え |
| xlCenterAcrossSelection | 選択範囲内で中央 |
| xlDistributed | 均等割り付け |
縦位置
Rangeオブジェクト.VerticalAlignment = 定数
定数
| 定数 | 垂直位置 |
|---|---|
| xlTop | 上詰め |
| xlCenter | 中央揃え |
| xlBottom | 下詰め |
| xlFill | 繰り返し |
| xlJustify | 両端揃え |
| xlDistributed | 均等割り付け |
横位置、縦位置の設定例
横位置を設定する
標準
「標準」にしてみます。
Sub test()
Range("A1:A2").HorizontalAlignment = xlGeneral
End Sub
左詰め
「左詰め」（左寄せ）にしてみます。
Sub test()
Range("A1:A2").HorizontalAlignment = xlLeft
End Sub
中央揃え
「中央揃え」（センタリング）にしてみます。
Sub test()
Range("A1:A2").HorizontalAlignment = xlCenter
End Sub
右詰め
「右詰め」（右寄せ）にしてみます。
Sub test()
Range("A1:A2").HorizontalAlignment = xlRight
End Sub
繰り返し
「繰り返し」にしてみます。
Sub test()
Range("A1:A2").HorizontalAlignment = xlFill
End Sub
両端揃え
「両端揃え」にしてみます。
Sub test()
Range("A1:A2").HorizontalAlignment = xlJustify
End Sub
選択範囲内で中央
「選択範囲内で中央」にしてみます。
Sub test()
Range("A1:B2").HorizontalAlignment = xlCenterAcrossSelection
End Sub
均等割り付け
「均等割り付け」にしてみます。
Sub test()
Range("A1:A2").HorizontalAlignment = xlDistributed
End Sub
縦位置を設定する
上詰め
「上詰め」にしてみます。
Sub test()
Range("A1:A2").VerticalAlignment = xlTop
End Sub
中央揃え
「中央揃え」にしてみます。
Sub test()
Range("A1:A2").VerticalAlignment = xlCenter
End Sub
下詰め
「下詰め」にしてみます。
Sub test()
Range("A1:A2").VerticalAlignment = xlBottom
End Sub
両端揃え
「両端揃え」にしてみます。
Sub test()
Range("A1:A2").VerticalAlignment = xlJustify
End Sub
均等割り付け
「均等割り付け」にしてみます。
Sub test()
Range("A1:A2").VerticalAlignment = xlDistributed
End Sub
まとめて設定する
横も縦も同時に設定したい場合は「With」ステートメントを使うと便利です。
Sub test()
With Range("A1:A2")
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlDistributed
End With
End Sub
こんな記事も書いています