VBA(マクロ)

[ExcelVBA]マクロで文字を縦書き、横書きにする / Orientation

ExcelVBA(マクロ)

マクロでセル内の文字の方向を変更するサンプルコード

以下はExcelのセルの方向(縦書き、横書き、斜め)にするサンプルコードです。

Excelではボタンや「セルの書式設定」の配置タブで設定する内容です。

マクロではなく、Excelでの操作は「Excelで文字を縦書きにする」を参考にしてください。

文字を縦書きに設定(xlVertical)

文字を縦書きにする方法

以下の内容をコードに入力・実行すると、セルA4の文字が縦書きに設定されます。

Sub 縦書き()
    Range("A4").Orientation = xlVertical           '縦書き
End Sub

 

文字を横書きに設定(xlHorizontal)

文字の方向(横書き)

以下の内容をコードに入力・実行すると、セルA4の文字が横書きに設定されます。

デフォルトに戻したい時はこの横書きを指定します。

Sub 横書き()
    Range("A4").Orientation = xlHorizontal           '横書き
End Sub

 

 

文字を左へ90度回転に設定(xlUpward)

左へ90度回転

以下の内容をコードに入力・実行すると、セルA4の文字が90度回転します。

Sub 左へ90度回転()
    Range("A4").Orientation = xlUpward           '左へ90度回転
End Sub

 

文字を右へ90度回転に設定(xlDownward)

右へ90度回転

以下の内容をコードに入力・実行すると、セルA4の文字が90度回転します。

Sub 右へ90度回転()
    Range("A4").Orientation = xlDownward           '右へ90度回転
End Sub

 

文字の角度を数値で指定して設定(20度に設定)

文字を20度に回転

以下の内容をコードに入力・実行すると、セルA4の文字が指定した数値の角度(上記では20度)で設定されます。

Sub 数字で指定()
    Range("A4").Orientation = 20           '20度回転
End Sub

 

文字の配置(縦方向、横方向)を変えるAlignmentの指定は以下の記事をご覧ください。

ExcelVBA(マクロ)
[ExcelVBA]マクロで文字の配置を変更する / AlignmentExcel VBA(マクロ)で、セル内の文字を左寄せ、右寄せ、中央揃え、上揃え、下揃えなどの文字の配置を設定するAlignmentプロパティのサンプルコードです。...