図形の線のスタイルを設定する【Shape.Lineプロパティ】【ExcelVBA】

Shape.Lineプロパティ

Excelの図形は枠線の色やスタイルを Shape.Lineプロパティ を使って設定することができます。
Shape.Lineプロパティ は LineFormatオブジェクト を返します。

構文
Object.Line

Shape.Lineで使える主なプロパティ

図形の枠線を設定するサンプルコード

Public Sub Sample()
'直線のスタイルを設定する
  ActiveSheet.Shapes.AddLine 30, 50, 200, 50　　'直線
  
  '■線のスタイルを設定
  With ActiveSheet.Shapes(1).Line
      .ForeColor.RGB = RGB(255, 0, 0)     '赤
      .Weight = 5                         '太さ5pt
      .DashStyle = msoLineDash            '破線
      .Visible = msoTrue                  '枠線を表示
  End With

End Sub

Public Sub Sample2()
'図形の枠線のスタイルを設定する
  ActiveSheet.Shapes.AddShape(msoShapeHeart, 30, 30, 200, 200).Name = "ハート"

 '■枠線のスタイルを設定
  With ActiveSheet.Shapes("ハート").Line
      .ForeColor.RGB = RGB(255, 20, 147)  'ピンク
      .Weight = 8                         '太さ8pt
      .DashStyle = msoLineSolid           '実線
      .Visible = msoTrue                  '枠線を表示
  End With

End Sub

関連記事

• 図形(オートシェイプ)を作成する【Shapes.AddShapeメソッド】
• 直線(図形)を作成する【Shapes.AddLineメソッド】
• 図形に名前をつける/取得する【Shape.Nameプロパティ】
• 【一覧】図形(オートシェイプ)の種類【MsoAutoShapeType】