関数・メソッド

セルの文字の横位置・縦位置を指定する【HorizontalAlignment/VerticalAlignmentプロパティ】【ExcelVBA】

構文

Object.HorizontalAlignment
Object.VerticalAlignment

HorizontalAlignment・・・・セルの文字位置(横)を指定
VerticalAlignment
・・・・・セルの文字位置(縦)を指定
HorizontalAlignmentプロパティ/VerticalAlignmentプロパティでセルの文字位置を指定します。
指定する定数は以下を参照してください。
 

HorizontalAlignmentで指定する定数

定数 説明
xlLeft -4131 左詰め
xlCenter -4108 中央
xlRight -4152 右詰め
xlJustify -4130 両端揃え
xlDistributed -4117 均等割り付け
xlCenterAcrossSelection 7 選択範囲内で中央
xlGeneral 1 標準設定(既定値)
xlFill 5 繰り返し
VerticalAlignmentで指定する定数
定数 説明
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)は出来ないなど。

関連記事

コメント