Home » エクセルマクロ・Excel VBAの使い方 » Shapesコレクション・Shapeオブジェクト » 矢印のサンプルを作成するExcelマクロ

矢印のサンプルを作成するExcelマクロ

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

図形の矢印は、矢印の種類（形状）・サイズ（長さと幅）を指定することができます。

45パターンの矢印

5種類の形状と、

9つのサイズから、

計45パターンを作れます。

そのサンプルを目視確認したかったので、Excelマクロを作ってみました。

［スポンサードリンク］

矢印のサンプルを作成するExcelマクロ

以下のSubプロシージャを実行すると、新規シートに矢印のサンプルが作成されます。

Sub 新規シートに矢印のサンプルを作成する()
　Const LN = 120　' 線の長さ（length）
　Const MG = 25　 ' 線と線の間隔（margin）

　Sheets.Add

　Dim n As Long: n = 1
　Dim s As MsoArrowheadStyle
　For s = msoArrowheadTriangle To msoArrowheadOval
　　Dim l As MsoArrowheadLength
　　For l = msoArrowheadShort To msoArrowheadLong
　　　Dim w As MsoArrowheadWidth
　　　For w = msoArrowheadNarrow To msoArrowheadWide

　　　　With ActiveSheet.Shapes.AddLine( _
　　　　　BeginX:=(s - 1) * LN - LN + (s - 1) * MG, _
　　　　　BeginY:=n * MG, _
　　　　　EndX:=(s - 1) * LN + (s - 1) * MG, _
　　　　　EndY:=n * MG)
　　　　　With .Line
　　　　　　.EndArrowheadStyle = s
　　　　　　.EndArrowheadLength = l
　　　　　　.EndArrowheadWidth = w
　　　　　End With
　　　　End With
　　　　n = n + 1

　　　Next w
　　Next l
　　n = 1
　Next s
End Sub