HorizontalAlignment プロパティ
HorizontalAlignment プロパティで、指定したセル範囲内における、文字列の水平方向の位置（横位置）を設定・取得します。
【書式】
＜取得＞
result = Object.HorizontalAlignment
＜設定＞
Object.HorizontalAlignment = const
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。
- const ・・・ 水平（横）方向の配置位置を指定する値・定数を指定します。
- result ・・・ 水平（横）方向の配置位置を表す値
引数 const に指定する水平方向配置位置を表す定数
| 定数 | 値 | 内容 |
| xlRight | -4152 | 右揃え |
| xlLeft | -4131 | 左揃え |
| xlJustify | -4130 | 両端揃え |
| xlDistributed | -4117 | 均等割り付け |
| xlCenter | -4108 | 中央揃え |
| xlGeneral | 1 | 標準（既定値） |
| xlFill | 5 | 繰り返し |
| xlCenterAcrossSelection | 7 | 選択範囲内での中央揃え |
HorizontalAlignment プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Sub Sample_HorizontalAlignment() Range("A1:C1").HorizontalAlignment = xlLeft Range("A2").HorizontalAlignment = xlJustify Range("B2").HorizontalAlignment = xlCenter Range("A3").HorizontalAlignment = xlDistributed Range("C3").HorizontalAlignment = xlFill Range("A4").HorizontalAlignment = xlRight Range("A5:C5").HorizontalAlignment = xlCenterAcrossSelection End Sub |
実行結果
サンプルVBAソース実行前
実行後
