なぜVBAで図形操作を自動化するのか
Excelで資料を作成する際、オートシェイプを使って図解を作成することは多いはずです。しかし、複数の図形を同じ比率で縮小したり、一定の角度で回転させたりする作業をすべて手動で行うのは、非常に手間がかかり、かつ「微妙なズレ」が生じやすいものです。
VBAを活用すれば、座標と数値を指定するだけで、完璧に整列された図形を瞬時に生成できます。今回は、手動操作の基本である「縮小・回転」を、VBAでいかに効率化するかを解説します。
基礎知識：Shapeオブジェクトのプロパティ
Excel VBAで図形を扱うには、Shapeオブジェクトを使用します。図形を操作する上で特に重要なプロパティは以下の通りです。
・Width / Height: 図形の幅と高さを指定します。縮小はこの数値を変更することで実現します。
・Rotation: 図形の回転角（度）を指定します。
・Left / Top: 図形の配置位置を制御します。
これらをコードで操作することで、ドラッグ＆ドロップに頼らず、正確な図形配置が可能になります。
実装：VBAによる図形の生成と編集
手動操作では「ハンドル」をドラッグしますが、VBAでは「図形を追加」した直後に、それらのプロパティを書き換えます。以下のサンプルコードは、新規に楕円（花びらに見立てた図形）を作成し、サイズを変更して回転させる一連の流れを示しています。
サンプルプログラム：オートシェイプの作成と変形
以下のコードを標準モジュールに貼り付けて実行してください。アクティブなシート上に図形が生成されます。
Sub CreatePetal()
Dim shp As Shape
‘ 1. 楕円を作成 (左上座標 100, 100、幅 50、高さ 100)
Set shp = ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, 50, 100)
‘ 2. 図形を少し縮小する (例: 幅を40に調整)
shp.Width = 40
‘ 3. 図形を左に30度回転させる
‘ 正の値は右回り、負の値は左回りとなります
shp.Rotation = -30
‘ 4. 図形に色を付けて見やすくする
With shp.Fill
.ForeColor.RGB = RGB(255, 182, 193) ‘ パステルピンク
.Transparency = 0.3 ‘ 少し透明度を上げる
End With
MsgBox “花びらを作成し、変形・回転を完了しました。”
End Sub
応用・注意点：現場で役立つTips
・相似形を保つには: ScaleWidthやScaleHeightメソッドを使うと、比率（倍率）を指定して拡大縮小できます。`shp.ScaleWidth 0.8, msoFalse` のように記述すれば、現在のサイズから80%に縮小でき、縦横比を崩さず編集可能です。
・回転の基準点に注意: オートシェイプの回転は「図形の中心」を軸に行われます。もし特定の地点を軸に回転させたい場合は、図形のLeft/Top位置を再計算して補正する処理が必要になります。
・バグ回避のコツ: 複数の図形を扱う際は、`Set shp = …` で変数に格納しておく癖をつけましょう。これにより、図形が選択状態かどうかに依存せず、確実に目的のオブジェクトを操作できます。
今回のコードを応用すれば、花びらを複数枚並べて「花」を作るような複雑な図形生成も、ループ処理（For文）と組み合わせることで自動化が可能になります。ぜひ挑戦してみてください。
