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

Contents

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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