Power Automate Desktopでウィンドウ内のテキストフィールドに入力する方法

GPTs（自作ChatGPT）の使い方

Unityで条件を満たす間処理を繰り返す方法/While文の使い方

Excel（エクセル）でURLやメアドが勝手にリンク化される、青くなるのを解除する方法/オートコレクトの使い方

Excel VBA（マクロ）でセル・範囲の条件付き書式を削除する方法/FormatConditions.Deleteメソッドの使い方

仮想通貨用語：ファンディングレート（FR）とは

Excel（エクセル）で図形に光彩を付ける方法

Illustratorで三角形、五角形、六角形他多角形を描画する方法/多角形ツールの使い方

Excel VBA（マクロ）でシートの名前を取得・変更する方法/Nameプロパティの使い方

Excelフォーマットの見積書の作り方とテンプレート

Excel（エクセル）で行・列を削除する方法

Pythonでリスト内の項目、変数を削除する方法/popメソッドの使い方

AI作詞作曲サービスSongRの使い方

cssで画面の右下に「トップへ戻る」ボタンや画像を固定する方法/position:fixedの使い方

Excelで月末の日付を求める方法/EoMonth関数の使い方

Excel VBA（マクロ）でインデントを設定、解除、取得する方法/IndentLevel、InsertIndentの使い方

Power Automate Desktopでワークシートの名前、インデックス番号を取得する方法/「アクティブなExcelワークシートの取得」の使い方

Excelエクセルで数字を四捨五入、切り上げ、切り下げする方法/Round,Roundup,Rounddown関数の使い方

Excel VBA（マクロ）で図形を回転させる、角度を変える方法/Rotation、IncrementRotationの使い方

IT

2021.12.01

Rotationプロパティを使うと、図形を好きな角度に傾けることができます。

目次

Rotationプロパティの使い方
- 角度の変更
- 角度の出力
IncrementRotationメソッドの使い方
中心点をずらして回転

Rotationプロパティの使い方

図形の角度を取得
Shapeオブジェクト（またはShapeRangeコレクション）.Rotation

角度の変更

shape rotation4

通常操作で言う書式タブ→配置内の回転→角度指定にあたるのがRotationプロパティです。
現在の角度に関係なく、指定した角度に変更されます。

shape rotation1

こうした図形に対し、

' vba
ActiveSheet.Shapes(1).Rotation = 90

Rotationプロパティを使い、度数換算で角度を指定してやれば、

shape rotation2

その角度分図形が傾く、というわかりやすいプロパティです。

' vba
ActiveSheet.Shapes(1).Rotation = -90

値はマイナスで指定することもできます。-90度と270度は同じ角度です。

角度の出力

' vba
Range("A1").Value = ActiveSheet.Shapes(2).Rotation

図形の角度を取得して他の図形と合わせたり、値を出力することも可能です。

shape rotation5

実行例です。

IncrementRotationメソッドの使い方

図形の角度を加算
Shapeオブジェクト（またはShapeRangeコレクション）.IncrementRotation 角度

shape rotation3

ハンドルで図形を回転させる操作は、VBAではIncrementRotationメソッドにあたります。

' vba
ActiveSheet.Shapes(1).IncrementRotation 10

こちらは現在の角度に指定角度を加算していくことができます。

vba IncrementRotation2

Rotationでも代用できますが、ちょっとずつ回転させたい場合などはこっちのほうがシンプルな記述になります。

中心点をずらして回転

shape rotation6

ついでにちょっとテクニックを。こんな感じで図形と線を作っておき、

shape rotation7

線を書式タブの図形の枠線→枠線なしで透明にします。

shape rotation8

Ctrlを押しながら三角形をクリックして、複数選択状態にします。

shape rotation9

書式タブ→グループ化→グループ化で三角と線をグループにします。
この一連の操作もしたければマクロ化できます。

shape rotation10

図形がグループ化されました。

' vba
ちょっとずつ回す
ActiveSheet.Shapes(1).IncrementRotation 10

この状態でさっきのコードを実行すると、

vba IncrementRotation3

中心点を図形中心からズラした状態で回転させることが可能です。

vba IncrementRotation5

この場合、中心点は線と三角形を合わせた直線の中間点になります。
逆方向に同じ図形をくっつける等すれば、線の先端を中心に回転させることも可能です。

Excel（エクセル）：図形

Excelでは、図形という機能を使うことで四角形や丸、矢印などのオブジェクトをシート状に配置することができます。セルの形状を無視して配置できるので、フローチャートや装飾、注釈などアイデア次第でさまざまな用途に利用できます。図形作成・操作...

やりたいことから方法を探すエクセル（Excel）操作・関数・VBA（マクロ）逆引きまとめ

逆引き（やりたいことから探す）Excel記事まとめ

関数・演算子・メソッド・プロパティ名から探すExcel/VBA（マクロ）使い方・組み合わせ方まとめ

こちらはExcelやメソッドの諸機能を、機能の名称から探せるまとめ記事です。

コメント