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

スポンサーリンク

線の書式設定

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

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

プロパティ内容
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【ラインフォーマット】オブジェクトのプロパティについての解説を終了します。ありがとうございました。

スポンサーリンク

関連記事・広告