VBA～セルのデータを斜めにしよう～Excel

VBAでセルのデータを斜めにしたい時はRange.Orientationプロパティを設定します。

単一セルのデータを斜めに表示する

下のコードを実行するとセルB3のデータが30°になります。

Sub test1()

Range("B3").Orientation = 30

End Sub

範囲のデータを斜めに表示する

範囲を指定したい時はRange("範囲の左上のセル:範囲の右下のセル")で指定できます。

下のコードを実行するとセルB3からセルD3のデータが30°になります。

Sub test2()

Range("B3:D3").Orientation = 30

End Sub

指定したシートのセルのデータを斜めに表示する

シートを指定するときはWorksheets("シート名")で指定できます。

下のコードを実行するとSheet2のセルB3のデータが30°になります。

Sub test3()

Worksheets("Sheet2").Range("B3").Orientation = 30

End Sub

ブックを指定してセルのデータを斜めに表示する

ブックを指定するときはWorkbooks("ブック名")で指定できます。

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1のセルB3のデータが30°になります。

Sub test4()

Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("B3").Orientation = 30

End Sub