Shapes.AddLineメソッド
VBAで図形の直線を作成したいときは Shapes.AddLine メソッドを使います。
構文
Object.AddLine(BeginX, BeginY, EndX, EndY)
| Object | Shapes オブジェクトを表す変数です。 |
| BeginX | 線の水平方向の始点です。ポイント単位で位置を指定します。 |
| BeginY | 線の垂直方向の始点です。ポイント単位で位置を指定します。 |
| EndX | 線の水平方向の終点です。ポイント単位で位置を指定します。 |
| EndY | 線の垂直方向の終点です。ポイント単位で位置を指定します。 |
線の太さと色
作成する線は Lineプロパティ を使うことで、太さと色を変えることができます。
線の 太さ →「.Line.Weight」
線の 色 →「.Line.ForeColor.RGB」
線の 色 →「.Line.ForeColor.RGB」
太さはポイント、色はRGBで指定します。
直線を作成するサンプルコード
Public Sub Sample()
'■色んな方向に線を引く
ActiveSheet.Shapes.AddLine 30, 50, 200, 50 '横
ActiveSheet.Shapes.AddLine 30, 50, 30, 200 '縦
ActiveSheet.Shapes.AddLine 30, 200, 200, 50 '右上がり
ActiveSheet.Shapes.AddLine 30, 50, 200, 200 '左上がり
'■太さと色を指定して線を引く
With ActiveSheet.Shapes.AddLine(30, 20, 200, 20)
.Line.Weight = 5
.Line.ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub
コメント