Design space on computer laptop screen
Excelにはグラフや図形など、視覚的に情報を整理する機能が多数ありますが、中でも「オートシェイプ」は簡単に矢印や吹き出しなどを描画できる便利なツールです。
手作業でも配置できますが、VBA（Visual Basic for Applications）を使えば、作業を自動化し、大量の図形の生成や編集も一瞬で可能になります。
この記事では、オートシェイプをVBAで操作する方法について、初心者にもわかりやすく丁寧に解説します。
基本的な描画から、色や文字の設定、さらには図形の移動や削除など、業務に役立つ応用テクニックまで紹介しますので、ぜひ最後までご覧ください。
オートシェイプは、Excelの「挿入」タブから簡単に図形を追加できる機能で、矢印、吹き出し、星形など多くの種類があります。
VBAを活用すると、以下のような操作が可能です。
これらを使いこなすことで、報告書やダッシュボードの作成が格段に効率化されます。
オートシェイプの描画には、Shapes.AddShapeメソッドを使います。
以下は、四角形を描画する基本コードです。
Sub AddRectangle()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
' 長方形を挿入
ws.Shapes.AddShape _
Type:=msoShapeRectangle, _
Left:=100, Top:=50, Width:=150, Height:=80
End Sub
Type：図形の種類（msoShapeRectangleは長方形）Left / Top：図形の左上位置（ポイント単位）Width / Height：図形のサイズ図形の種類は他にも多数あり、msoShapeOval（円）、msoShapeRightArrow（右矢印）など、ニーズに応じて選べます。
図形内に文字を表示したい場合は、以下のように記述します。
Sub AddShapeWithText()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddShape(msoShapeOval, 50, 50, 120, 60)
shp.TextFrame.Characters.Text = "こんにちは"
End Sub
With shp.TextFrame.Characters
.Font.Name = "メイリオ"
.Font.Size = 14
.Font.Bold = True
End With
これにより、プレゼン資料のような見栄えの良いシートが簡単に作れます。
視覚的な印象を変えるためには、色や線種を設定しましょう。
With shp.Fill
.ForeColor.RGB = RGB(255, 200, 200) ' 塗りつぶし色
.Transparency = 0.2 ' 透明度
End With
With shp.Line
.ForeColor.RGB = RGB(0, 0, 0) ' 線の色
.Weight = 2 ' 線の太さ
End With
RGB関数を使えば、好みの色に自由にカスタマイズ可能です。
既存の図形を再配置・再調整するには以下のように記述します。
Sub ResizeShape()
Dim shp As Shape
Set shp = ActiveSheet.Shapes("楕円 1") ' 図形名で指定
shp.Left = 200
shp.Top = 100
shp.Width = 180
shp.Height = 90
End Sub
図形の名前は、図形を挿入した順に自動命名されます。Shapes(1)のようにインデックス指定も可能です。
不要な図形を削除するには以下のようにします。
Sub DeleteAllShapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp
End Sub
複数の図形を一括で操作したい場合も、For Eachループが有効です。
たとえば、すべてのオートシェイプのテキストを変更したいときにも便利です。
実務では、データに応じて図形を動的に挿入したい場面もあります。
Sub ShapeFromData()
Dim i As Long
Dim lastRow As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
If ws.Cells(i, 2).Value > 50 Then
ws.Shapes.AddShape(msoShapeRightArrow, _
Left:=ws.Cells(i, 3).Left, _
Top:=ws.Cells(i, 3).Top, _
Width:=80, Height:=20).TextFrame.Characters.Text = "↑高値"
End If
Next i
End Sub
このように、条件付きで図形を生成することで、視覚的なレポートや注意喚起が可能になります。
VBAでオートシェイプを操作することは、見た目を整えるだけでなく、作業の自動化・可視化・ミス防止など、多くのメリットがあります。
一度コードを組んでおけば、繰り返しの作業が劇的に効率化され、業務の質も向上します。
今回ご紹介した基本操作を押さえたうえで、ぜひご自身の業務に応じた図形自動化を試してみてください。
より高度な操作としては、図形のグループ化やトリガーイベントとの連携も可能ですので、次のステップとしてチャレンジしてみましょう！