Excel VBA 選択セル範囲の中心に列方向で両端矢印の線を引く

選択セル範囲の中心に列方向で両端矢印の線を引く方法

例えば、勤務スケジュールやタイムスケジュール表をExcelで作成するときにスケジュールの範囲を両端矢印の線で表示する場合があると思います。

通常はオートシェイプを挿入して、その範囲に合わせてシェイプ配置をすることになりますが、セルの範囲にピッタリと合わせるのが手間だったりします。

そこで、選択したセル範囲の中心に列（縦）方向で両端矢印の線を自動で引くコードをご紹介します。

選択したセル範囲の中心に行（横）方向で両端矢印の線を自動で引くコードについてはこちらをご覧ください。

実行イメージ

セル範囲を選択します。

コードを実行します。

選択セル範囲の中心に列方向の両端矢印線が作成されました。

セルの枠線に合わせて両端矢印線を引く場合は
線を引く枠線が中心になるように両端のセルを選択します。

コードを実行します。

枠線に合わせて両端矢印が作成されました。

ワークシートに両端矢印線を挿入する方法

ワークシートに線を挿入するには、Shapes【ｼｪｲﾌﾟｽ】コレクションのAddLine【ｱﾄﾞﾗｲﾝ】メソッドを使用します。

AddLine【ｱﾄﾞﾗｲﾝ】メソッドで作成したShapeオブジェクト（線）に対してLine【ﾗｲﾝ】プロパティで、線の書式設定をするためのLineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを取得して線に矢印や色太さの書式を設定します。

選択セル範囲の中心に列方向で両端矢印の線を引くコードと解説

Sub 列矢印()
Dim R As Range
Set R = Selection
With ActiveSheet.Shapes. _
AddLine(R.Left + R.Width / 2, R.Top, R.Left + R.Width / 2, R.Top + R.Height).Line
 .ForeColor.RGB = RGB(0, 0, 255)
 .Style = 1
 .BeginArrowheadStyle = 3
 .EndArrowheadStyle = 3
 .Weight = 3
End With
End Sub

2行目【Dim R As Range】
選択セル範囲を格納する変数「R」をオブジェクト型(Range)で宣言します。

3行目【Set R = Selection】
オブジェクト変数「R」にSet【ｾｯﾄ】キーワードを使用して「Selection」すなわち現在選択されているセルまたはセル範囲を代入します。

4行目～5行目【With ActiveSheet.Shapes. _
AddLine(R.Left + R.Width / 2, R.Top, R.Left + R.Width / 2, R.Top + R.Height).Line】
Shapes【ｼｪｲﾌﾟｽ】コレクションのAddLine【ｱﾄﾞﾗｲﾝ】メソッドで、Shape【ｼｪｲﾌﾟ】（線）オブジェクトを追加して取得しさらに、Line【ﾗｲﾝ】プロパティで線の書式を表す
LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを取得してWith【ｳｨｽﾞ】ステートメントで指定します。AddLineメソッドの引数は
左端からの線の始まり位置
上端からの線の始まり位置
左端からの線の終わり位置
上端からの線の終わり位置
の順でポイント単位で指定します。ポイントの取得は、変数「R」に代入されたセルまたは、セル範囲を基準にRange【ﾚﾝｼﾞ】オブジェクトのLeft、Top、Width、Heightプロパティで取得します。

6行目【 .ForeColor.RGB = RGB(0, 0, 255)】
with【ｳｨｽﾞ】ステートメントで指定した、線の書式を表す、LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトに対してForeColor【ﾌｫｱｶﾗｰ】プロパティを使用してRGB関数で線に色を設定します。
線の色を変更する場合はRGB値を変更してください。

7行目【.Style = 1】
同じくwith【ｳｨｽﾞ】ステートメントで指定した、線の書式を表す、LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのStyle【ｽﾀｲﾙ】プロパティを使用して線のスタイルを1の実線に指定します。

8行目【.BeginArrowheadStyle = 3】
LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのBeginArrowheadStyle【ﾋﾞｷﾞﾝｱﾛｰｽﾀｲﾙ】プロパティを使用して、線の始点の矢印のスタイルを3の開いた矢印に設定します。

9行目【.EndArrowheadStyle = 3】
LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのEndArrowheadStyle【ｴﾝﾄﾞｱﾛｰｽﾀｲﾙ】プロパティを使用して線の終点の矢印のスタイルを3の開いた矢印に設定します。

10行目【.Weight = 3】
LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのWeight【ｳｴｲﾄ】プロパティを使用して線の太さを3に指定します。

以上で、選択セル範囲の中心に列方向で両端矢印の線を引く方法についての解説を終了します。ありがとうございました。