関数・メソッド

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

Shape.Lineプロパティ

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

構文
Object.Line

Object Shapeオブジェクト を表す変数です。

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

ForeColor 線の色
Weight 線の太さ(ポイント単位)
DashStyle 線の種類　msoLineSolid（実線）msoLineDash（破線）msoLineDot（点線）
Visible 表示/非表示
Transparency 線の透明度　0:不透明　1:透明

 

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

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

 

関連記事

コメント