Contents
マクロでセル内の文字の方向を変更するサンプルコード
以下はExcelのセルの方向(縦書き、横書き、斜め)にするサンプルコードです。
Excelではボタンや「セルの書式設定」の配置タブで設定する内容です。
マクロではなく、Excelでの操作は「Excelで文字を縦書きにする」を参考にしてください。
文字を縦書きに設定(xlVertical)

以下の内容をコードに入力・実行すると、セルA4の文字が縦書きに設定されます。
Sub 縦書き()
Range("A4").Orientation = xlVertical '縦書き
End Sub
文字を横書きに設定(xlHorizontal)

以下の内容をコードに入力・実行すると、セルA4の文字が横書きに設定されます。
デフォルトに戻したい時はこの横書きを指定します。
Sub 横書き()
Range("A4").Orientation = xlHorizontal '横書き
End Sub
文字を左へ90度回転に設定(xlUpward)

以下の内容をコードに入力・実行すると、セルA4の文字が90度回転します。
Sub 左へ90度回転()
Range("A4").Orientation = xlUpward '左へ90度回転
End Sub
文字を右へ90度回転に設定(xlDownward)

以下の内容をコードに入力・実行すると、セルA4の文字が90度回転します。
Sub 右へ90度回転()
Range("A4").Orientation = xlDownward '右へ90度回転
End Sub
文字の角度を数値で指定して設定(20度に設定)

以下の内容をコードに入力・実行すると、セルA4の文字が指定した数値の角度(上記では20度)で設定されます。
Sub 数字で指定()
Range("A4").Orientation = 20 '20度回転
End Sub
文字の配置(縦方向、横方向)を変えるAlignmentの指定は以下の記事をご覧ください。

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