VBA～図形を回転しよう～Excel

VBAで図形を回転させたい場合はShapeRange.IncrementRotation メソッドを設定します。

アクティブシートの図形を回転

下のコードを実行するとアクティブシートの図形を15°回転します。

Sub test1()

ActiveSheet.Shapes(1).IncrementRotation 15

End Sub

指定したシートの図形を回転

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

下のコードを実行するとSheet2の図形を15°回転します。

Sub test2()

Worksheets("Sheet2").Shapes(1).IncrementRotation 15

End Sub

ブックを指定して図形を回転

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

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1の図形を15°回転します。

Sub test3()

Workbooks("Book1.xlsx").Worksheets("Sheet1").Shapes(1).IncrementRotation 15

End Sub