【VBA】セルの文字を縦書きにする

VBAで
　・セルの文字を縦書き
にできます！

VBAコード

ここでは例として、
　・シート「sample」上の
　・結合されているセル「B3」の文字を縦書き
にします。

Sub sample()
    
    '縦書きにする
    Range("B3").Orientation = xlVertical

End Sub

「Rangeオブジェクト」の「Orientation」プロパティに「xlVertical」を設定します(4行目)。
※「xlHorizontal」を設定すると「横書き」になります。

セルの文字を縦書きにできました。

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「Rangeオブジェクト」の「Orientation」プロパティ