構文
Object.HorizontalAlignment
Object.VerticalAlignment
HorizontalAlignment・・・・セルの文字位置(横)を指定
VerticalAlignment・・・・・セルの文字位置(縦)を指定
VerticalAlignment・・・・・セルの文字位置(縦)を指定
HorizontalAlignmentプロパティ/VerticalAlignmentプロパティでセルの文字位置を指定します。
指定する定数は以下を参照してください。
指定する定数は以下を参照してください。
HorizontalAlignmentで指定する定数
| 定数 | 値 | 説明 |
| xlLeft | -4131 | 左詰め |
| xlCenter | -4108 | 中央 |
| xlRight | -4152 | 右詰め |
| xlJustify | -4130 | 両端揃え |
| xlDistributed | -4117 | 均等割り付け |
| xlCenterAcrossSelection | 7 | 選択範囲内で中央 |
| xlGeneral | 1 | 標準設定(既定値) |
| xlFill | 5 | 繰り返し |
| 定数 | 値 | 説明 |
| xlTop | -4160 | 上詰め |
| xlCenter | -4108 | 中央揃え(既定値) |
| xlBottom | -4107 | 下詰め |
| xlJustify | -4130 | 両端揃え |
| xlDistributed | -4117 | 均等割り付け |
セルの文字の横位置・縦位置を指定するコードサンプル
Public Sub sample()
'■セルA1を左詰め、上詰めにする
Range("A1").HorizontalAlignment = xlLeft
Range("A1").VerticalAlignment = xlTop
'■セルB1～C1を中央揃えにする
Range("B1:C1").HorizontalAlignment = xlCenter
Range("B1:C1").VerticalAlignment = xlCenter
'■セルD1～E5を右詰、下揃えにする(Withを使用して)
With Range("D1:E5")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
End With
End Sub
注意点
- 手作業で設定した場合同様、あるプロパティを設定すると他の設定が出来ないケースがあります。 例）均等割り付けの場合、縮小表示(ShrinkToFit）は出来ないなど。
コメント