OfficeType
  1. ホーム
  2. Excel VBA
  3. 図形
  4. 直線の色、太さ、種類を設定しよう

VBA～直線の色、太さ、種類を設定しよう～Excel

直線の色、太さ、種類の設定

線の色の設定

線の色を設定したい場合はLineFormat.ForeColorプロパティで設定できます。

下のコードを実行すると線の色が赤に設定されます。 

Sub test1()

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 20, 20, 100, 100).Line.ForeColor.RGB = RGB(255, 0, 0)

End Sub

image-01

線の太さの設定

線の太さを設定したい場合はLineFormat.Weightプロパティで設定できます。

下のコードを実行すると線の太さが2に設定されます。 

Sub test2()

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 20, 20, 100, 100).Line.Weight = 2

End Sub

image-02

線の種類の設定

線の種類を設定したい場合はLineFormat.DashStyleプロパティで設定できます。

線の種類は以下の通りです。

名前値説明
msoLineDash4線は破線のみで構成されます。
msoLineDashDot5線は一点鎖線パターンです。
msoLineDashDotDot6線は二点鎖線パターンです。
msoLineDashStyleMixed-2サポートされていません。
msoLineLongDash7線は長破線で構成されます。
msoLineLongDashDot8線は長鎖線パターンです。
msoLineRoundDot3線は点線 (丸) で構成されます。
msoLineSolid1線は実線です。
msoLineSquareDot2線は点線 (角) で構成されます。

下のコードを実行すると線の種類が点線(角)になります。 

Sub test3()

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 20, 20, 100, 100).Line.DashStyle = msoLineSquareDot

End Sub

image-03