なぜVBAでオートシェイプを制御するのか？
Excelのオートシェイプ（図形）機能は、手動でドラッグ＆ドロップすれば直感的に描画できますが、同じような図形を何十個も作成したり、決まった角度やサイズで整列させたりする作業は、手動では非常に手間がかかります。VBAを活用すれば、図形の生成、回転、サイズ変更を瞬時に実行でき、描画の正確性も格段に向上します。今回は、図形操作の基本である「回転」と「サイズ変更」をコードで制御する方法を解説します。
基礎知識：Shapeオブジェクトのプロパティ
Excel VBAで図形を操作するには、Shapeオブジェクトを使用します。主要なプロパティは以下の通りです。
・Rotation: 図形の回転角度を指定します。プラス値で時計回り、マイナス値で反時計回りに回転します。
・Width / Height: 図形の幅と高さを指定します。
・Left / Top: シート上の位置（左端からの距離、上端からの距離）を指定します。
これらのプロパティをVBAで直接書き換えることで、マウス操作に頼らずに精密なデザインが可能になります。
実装：図形をプログラムで変形させる
特定の図形を選択して回転させるには、Shapesコレクションから対象を指定し、プロパティを代入するだけです。以下は、現在選択している図形に対して、角度とサイズを一括で設定する実用的なサンプルです。
サンプルプログラム：図形を一括調整するマクロ
Sub AdjustSelectedShape()
‘ 現在選択している図形を取得
Dim shp As Shape
‘ 図形が選択されていない場合の制御
If Selection.ShapeRange.Count = 0 Then
MsgBox “図形を選択してから実行してください。”
Exit Sub
End If
Set shp = Selection.ShapeRange(1)
‘ 図形の設定を適用
With shp
‘ 回転角度を15度に設定
.Rotation = 15
‘ 幅を70ポイントに設定（高さは自動比率調整にする場合はWidthのみ指定）
.Width = 70
‘ 必要に応じて位置を調整（例：左から100、上から100の位置へ移動）
.Left = 100
.Top = 100
End With
MsgBox “図形の調整が完了しました！”
End Sub
応用・注意点：現場で役立つポイント
1. 単位の扱いに注意する
VBAで指定する数値の単位は「ポイント（pt）」です。cmで指定したい場合は、Application.CentimetersToPoints(2.5) のように変換関数を使うと、実務での図面作成がスムーズになります。
2. 基準位置（Anchor）を意識する
図形を回転させると、回転の中心軸は「図形の中心」になります。図形をコピーして並べる際、回転後の中心位置がずれることがあるため、必要に応じてLeftやTopプロパティで位置を微調整するコードを組み合わせるのがコツです。
3. 連続処理の高速化
大量の図形を一気に作成・配置する場合は、画面の更新を一時停止する Application.ScreenUpdating = False をコードの冒頭に入れることで、処理速度が大幅に向上します。
手動操作で感覚をつかんだら、ぜひこのVBAコードを組み合わせて、効率的な描画環境を構築してみてください。
