Orientation プロパティ
Orientation プロパティで、文字列の向きを表すバリアント型（Variant）の値を取得、または設定します。数値（-90 ～ 90）または方向を表す定数（XIOrientation 列挙型）を使用します。
【書式】
＜取得＞
result = Object.Orientation
＜設定＞
Object.Orientation = long
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。
- long ・・・ 文字列の向きを表す値を指定します。角度を -90 ～ 90 の間の数値で指定するか、方向を示す XIOrientation 列挙型 の定数を用いることができます。
- result ・・・ 文字列の向きを表す値（角度または、XIOrientation 列挙型の定数値）。
longに指定する値(XIOrientation 列挙型等)
| 定数 | 値 | 角度（内容） |
| xlDownward | -4170 | -90°（下向き） |
| xlHorizontal（既定値） | -4128 | 0°（水平方向） |
| xlUpward | -4171 | 90°（上向き） |
| xlVertical | -4166 | （縦方向でセルの中央に配置） |
Orientation プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
Sub SampleOrientation() 'xlDownward Range("A1").Orientation = xlDownward 'xlHorizontal Range("A2").Orientation = xlHorizontal 'xlUpward Range("A3").Orientation = xlUpward 'xlVertical Range("A4").Orientation = xlVertical '0度 Range("A5").Orientation = 0 '45度 Range("A6").Orientation = 45 '90度 Range("A7").Orientation = 90 '-45度 Range("A8").Orientation = -45 '-90度 Range("A9").Orientation = -90 End Sub |
実行結果
