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

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

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

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

45パターンの矢印

5種類の形状と、

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

9つのサイズから、

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

計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

最終更新日時:2018-10-03 05:59

[スポンサードリンク]

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

TrackBack:1

TrackBack URL
AddConnectorで終端の形状を変更するには? from インストラクターのネタ帳
コネクターの終端形状を変更するExcelマクロをご紹介しています。

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

「Shapeオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.