文字の角度を変更する【Orientationプロパティ】【ExcelVBA】

構文
Orientationプロパティのサンプルコード
注意点
関連記事

構文

Range.Orientation= expression

expression・・・-90~90までの値　又は下記表(XlOrientaitoinクラス)の定数

Rangeオブジェクトの Orientationプロパティで文字列の角度を変更し見栄えをよくします。

XlOrientaitoinクラスのメンバ

名前	値	説明	備考
xlDownward	-4170	下向き	-90と同様
xlHorizontal	-4128	横書き	(規定値)
xlUpward	-4171	上向き	90と同様
xlVertical	-4166	縦書き

Orientationプロパティのサンプルコード

Public Sub sample()

    '■セルA1の文字を30度の角度を付ける(右上がりの30度)
    Range("A1").Orientation = 30
    Debug.Print Range("A1").Orientation '30

    '■セルB1の文字を-30度の角度を付ける(右下がりの30度)
    Range("B1").Orientation = -30
    Debug.Print Range("B1").Orientation '-30
    
    '■セルA1を含む表に対して文字を縦書きにする
    Range("A1").CurrentRegion.Orientation = xlVertical
    
    '■シート全体の文字を規定値の横書きにする
    Cells.Orientation = xlHorizontal
    
End Sub