Excel VBA 線の書式を設定する LineFormatオブジェクトのプロパティ

VBA 図形・グラフ

スポンサーリンク

線の書式設定

作成した線や図形（図形を作成するメソッド）の線や図形の枠線の太さ、スタイル、色を以下のプロパティで設定をすることができます。

線の書式設定で使用するプロパティ一覧

プロパティ内容
Line【ﾗｲﾝ】太さ、色、矢印などの線の書式を設定する
LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを取得します。
ForeColor【ﾌｫｱｶﾗｰ】色の書式を設定する
ColorFormat【ｶﾗｰﾌｫｰﾏｯﾄ】オブジェクトを取得します。
Style【ｽﾀｲﾙ】線のスタイルを設定します。
Weight【ｳｲﾄ】線の太さを設定します。
DashStyle【ﾀﾞｯｼｭｽﾀｲﾙ】点線のスタイルを設定します。
Visible【ﾋﾞｼﾞﾌﾞﾙ】線の表示、非表示の設定をします。
BeginArrowheadStyle
【ﾋﾞｷﾞﾝｱﾛｰﾍｯﾄﾞｽﾀｲﾙ】		矢印の始点のスタイルを設定します。
EndArrowheadStyle
【ｴﾝﾄﾞｱﾛｰﾍｯﾄﾞｽﾀｲﾙ】		矢印の終点のスタイルを設定します。
BeginArrowheadLength
【ﾋﾞｷﾞﾝｱﾛｰﾍｯﾄﾞﾚﾝｸﾞｽ】		矢印の始点の長さを設定します。
EndArrowheadLength
【ｴﾝﾄﾞｱﾛｰﾍｯﾄﾞﾚﾝｸﾞｽ】		矢印の終点の長さを設定します。
BeginArrowheadWidth
【ﾋﾞｷﾞﾝｱﾛｰﾍｯﾄﾞﾜｲｽﾞ】		矢印の始点の幅を設定します。
EndArrowheadWidth
【ｴﾝﾄﾞｱﾛｰﾍｯﾄﾞﾜｲｽﾞ】		矢印の終点の幅を設定します。

Line【ﾗｲﾝ】プロパティ

直線や図形の枠線に書式を設定するには、Shape【ｼｪｲﾌﾟ】オブジェクトまたは、ShapeRange【ｼｪｲﾌﾟﾚﾝｼﾞ】コレクションの
Line【ﾗｲﾝ】プロパティを使用してLineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを取得します。LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトは色や太さ、矢印などの線の書式を設定するためのオブジェクトです。

Line【ﾗｲﾝ】プロパティの書式と設定値の説明

オブジェクト.Line
【戻り値】LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクト

※LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトは直線と図形の枠線の両方の書式を設定するプロパティを持ちますが、矢印のスタイルのように、図形の枠線では使用できないプロパティもあります。

ForeColor【ﾌｫｱｶﾗｰ】プロパティ

直線や図形の枠線に色を設定するには、LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのForeColor【ﾌｫｱｶﾗｰ】プロパティを使用してColorFormat【ｶﾗｰﾌｫｰﾏｯﾄ】オブジェクトを取得します。ColorFormat【ｶﾗｰﾌｫｰﾏｯﾄ】オブジェクトは色をRGBプロパティのRGB関数で指定したり、SchemeColor【ｽｷｰﾑｶﾗｰ】プロパティを使用して色番号で指定します。

ForeColor【ﾌｫｱｶﾗｰ】プロパティの書式と設定値の説明

オブジェクト.ForeColor
【戻り値】ColorFormat【ｶﾗｰﾌｫｰﾏｯﾄ】オブジェクト

  • オブジェクト（必須）
    LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを指定します。

※SchemeColor【ｽｷｰﾑｶﾗｰ】プロパティの色番号はColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティのインデックス番号とは
異なります。ColorIndexプロパティのインデックス番号に7を加算した値がSchemcolorプロパティの色番号と同じになります。例として黒の場合ColorIndexプロパティは1、Schemcolorプロパティは8

Style【ｽﾀｲﾙ】プロパティ

線のスタイルを設定するには、LineFormat【ﾗｲﾝﾌｫﾏｯﾄ】オブジェクトStyle【ｽﾀｲﾙ】プロパティを使用します。

Style【ｽﾀｲﾙ】プロパティの書式と設定値の説明

オブジェクト.Style = 設定値

  • オブジェクト（必須）
    LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを指定します。
  • 設定値（必須）
    MsoLineStyle列挙型の定数または、値で指定します。

    MsoLineStyle列挙型
    定数値内容
    msoLineSingle【ｼﾝｸﾞﾙ】1一重線
    msoLineThinThin【ｼｪｲﾝｼｪｲﾝ】2細い二重線
    msoLineThinThick【ｼｪｲﾝｼｯｸ】3細い線と太い線の二重線。細い線が上
    msoLineThickThin【ｼｯｸｼｪｲﾝ】4太い線と細い線の二重線。太い線が上
    msoLineThickBetweenThin【ｼｯｸﾋﾞｯﾄｲﾝｼｪｲﾝ】5両側を細い線ではさまれた太い線

B列のセルに合わせて5種類のスタイルの黒い線を作成するコード例

Sub ラインStyle()
Dim i As Long
Dim R As Range
For i = 1 To 5
Set R = Range("B" & i + 1)
With ActiveSheet.Shapes.AddLine(R.Left, R.Top, R.Left + R.Width, R.Top).Line
 .ForeColor.RGB = RGB(0, 0, 0)
 .Style = i
 .Weight = 10
End With
Next i
End Sub

実行結果

Weight【ｳｲﾄ】プロパティ

線の太さの設定と取得をするには、LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのWeight【ｳｲﾄ】プロパティを使用します。

Weight【ｳｲﾄ】プロパティの書式と設定値の説明

【取得】
オブジェクト.Weight
【戻り値】単精度浮動小数点型 (Single) の値
【設定】
オブジェクト.Weight = 設定値

  • オブジェクト（必須）
    LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを指定します。
  • 設定値（必須）
    線の太さを表す値をポイント単位（1ポイントは約0.35ミリ）で指定します。

DashStyle【ﾀﾞｯｼｭｽﾀｲﾙ】プロパティ

点線のスタイルの設定と取得をするには、LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのDashStyle【ﾀﾞｯｼｭｽﾀｲﾙ】プロパティを使用します。

DashStyle【ﾀﾞｯｼｭｽﾀｲﾙ】プロパティの書式と設定値の説明

【取得】
オブジェクト.DashStyle
【戻り値】長整数型 (Long) の値
【設定】
オブジェクト.DashStyle = 設定値

  • オブジェクト（必須）
    LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを指定します。
  • 設定値（必須）
    点線のスタイルの種類を表す
    MosLineDashStyle列挙型の定数または値で指定します。

    MosLineDashStyle列挙型
    定数値内容
    msoLineSolid【ｿﾘｯﾄﾞ】1実線
    msoLineSquareDot【ｽｸｴｱｰﾄﾞｯﾄ】2点線 (角)
    msoLineRoundDot【ﾗｳﾝﾄﾞﾄﾞｯﾄ】3点線 (丸)
    msoLineDash【ﾀﾞｯｼｭ】4破線
    msoLineDashDot【ﾀﾞｯｼｭﾄﾞｯﾄ】5一点鎖線
    msoLineDashDotDot【ﾀﾞｯｼｭﾄﾞｯﾄﾄﾞｯﾄ】6二点鎖線
    msoLineLongDash【ﾛﾝｸﾞﾀﾞｯｼｭ】7長破線
    msoLineLongDashDot【ﾛﾝｸﾞﾀﾞｯｼｭﾄﾞｯﾄ】8長鎖線

B列のセルに合わせて8種類のダッシュスタイルの黒い線を作成するコード例

Sub ダッシュStyle()
Dim i As Long
Dim R As Range
For i = 1 To 8
Set R = Range("B" & i + 1)
With ActiveSheet.Shapes.AddLine(R.Left, R.Top, R.Left + R.Width, R.Top).Line
.ForeColor.RGB = RGB(0, 0, 0)
.DashStyle = i
.Weight = 5
End With
Next i
End Sub

実行結果

Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティ

線を表示するかしないかの設定と取得をするには、LineFormat【ﾗｲﾝﾌｫﾏｯﾄ】オブジェクトのVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティを使用します。

Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの書式と設定値の説明

【取得】
オブジェクト.Visible
【戻り値】ブール型 (Boolean) の値
【設定】
オブジェクト.Visible = 設定値

  • オブジェクト（必須）
    LineFormat【ﾗｲﾝﾌｫﾏｯﾄ】オブジェクトを指定します。
  • 設定値（必須）
    線を表示する場合は「True」（既定値）線を表示しない場合は「False」を指定します。

BeginArrowheadStyle【ﾋﾞｷﾞﾝｱﾛｰﾍｯﾄﾞｽﾀｲﾙ】プロパティ

EndArrowheadStyle【ｴﾝﾄﾞｱﾛｰﾍｯﾄﾞｽﾀｲﾙ】プロパティ

線の始点の矢印のスタイルの設定や取得をするには、LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのBeginArrowheadStyle【ﾋﾞｷﾞﾝｱﾛｰﾍｯﾄﾞｽﾀｲﾙ】プロパティを使用します。線の終点の矢印のスタイルの設定や取得をするには、EndArrowheadStyle【ｴﾝﾄﾞｱﾛｰﾍｯﾄﾞｽﾀｲﾙ】プロパティを使用します。

BeginArrowheadStyle、EndArrowheadStyleプロパティの書式と設定値の説明

【設定】
オブジェクト.BeginArrowheadStyle = 設定値
オブジェクト.EndArrowheadStyle = 設定値

  • オブジェクト（必須）
    LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを指定します。
  • 設定値（必須）
    矢印のスタイルをMsoArrowheadStyle列挙型の定数または、値で指定します。

    MsoArrowheadStyle列挙型
    定数値内容
    msoArrowheadNone【ﾉﾝ】1矢印なし
    msoArrowheadTriangle【ﾄﾗｲｱﾝｸﾞﾙ】2三角矢印
    msoArrowheadOpen【ｵｰﾌﾟﾝ】3開いた矢印
    msoArrowheadStealth【ｽﾃﾙｽ】4鋭い矢印
    msoArrowheadDiamond【ﾀﾞｲｱﾓﾝﾄﾞ】5ひし型
    msoArrowheadOval【ｵﾊﾞｰﾙ】6円形矢印

B列のセルに合わせて6種類の矢印の形の青い線を作成するコード例

Sub 矢印Style()
Dim i As Long
Dim R As Range
For i = 1 To 6
Set R = Range("B" & i + 1)
With ActiveSheet.Shapes.AddLine(R.Left, R.Top, R.Left + R.Width, R.Top).Line
 .ForeColor.RGB = RGB(0, 0, 255)
 .Style = 1
 .BeginArrowheadStyle = i
 .EndArrowheadStyle = i
 .Weight = 5
End With
Next i
End Sub

実行結果

BeginArrowheadLength【ﾋﾞｷﾞﾝｱﾛｰﾍｯﾄﾞﾚﾝｸﾞｽ】プロパティ

EndArrowheadLength【ｴﾝﾄﾞｱﾛｰﾍｯﾄﾞﾚﾝｸﾞｽ】プロパティ

始点の矢印の長さの設定や取得をするには、LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのBeginArrowheadLength【ﾋﾞｷﾞﾝｱﾛｰﾍｯﾄﾞﾚﾝｸﾞｽ】プロパティを使用します。終点の矢印の長さの設定や取得をするには、EndArrowheadLength【ｴﾝﾄﾞｱﾛｰﾍｯﾄﾞﾚﾝｸﾞｽ】プロパティを使用します。

BeginArrowheadLength、EndArrowheadLengthプロパティの書式と設定値の説明

【設定】
オブジェクト.BeginArrowheadLength = 設定値
オブジェクト.EndArrowheadLength = 設定値

  • オブジェクト（必須）
    LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを指定します。
  • 設定値（必須）
    矢印の長さをMsoArrowheadLength列挙型の定数または、値で指定します。

    MsoArrowheadLength列挙型
    定数値内容
    msoArrowheadShort【ｼｮｰﾄ】1短い
    msoArrowheadLengthMedium【ﾐﾃﾞｨｱﾑ】2普通
    msoArrowheadLong【ﾛﾝｸﾞ】3長い

BeginArrowheadWidth【ﾋﾞｷﾞﾝｱﾛｰﾍｯﾄﾞﾜｲｽﾞ】プロパティ

EndArrowheadWidth【ｴﾝﾄﾞｱﾛｰﾍｯﾄﾞﾜｲｽﾞ】プロパティ

始点の矢印の幅の設定や取得をするには、LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのBeginArrowheadWidth【ﾋﾞｷﾞﾝｱﾛｰﾍｯﾄﾞﾜｲｽﾞ】プロパティを使用します。終点の矢印の幅の設定や取得をするには、EndArrowheadWidth【ｴﾝﾄﾞｱﾛｰﾍｯﾄﾞﾜｲｽﾞ】プロパティを使用します。

BeginArrowheadWidth、EndArrowheadWidthプロパティの書式と設定値の説明

【設定】
オブジェクト.BeginArrowheadWidth = 設定値
オブジェクト.EndArrowheadWidth = 設定値

  • オブジェクト（必須）
    LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを指定します。
  • 設定値（必須）
    矢印の長さをMsoArrowheadWidth列挙型の定数または、値で指定します。

    MsoArrowheadWidth列挙型
    定数値内容
    msoArrowheadNarrow【ﾅﾛｰ】1狭い
    msoArrowheadWidthMedium【ﾐﾃﾞｨｱﾑ】2普通
    msoArrowheadWide【ﾜｲﾄﾞ】3広い

以上で、線の書式を設定する LineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトのプロパティについての解説を終了します。ありがとうございました。

スポンサーリンク

関連記事・広告