Excelの罫線に関するマクロ

質問

Excelの罫線に関するマクロ
罫線を引き、それを赤くするマクロを作ったのですが、赤罫線の下にもうひとつ罫線が表示されてしまいます。どこを削除すればよいのでしょうか。
ご教示お願いいたします。

Sub 罫線()
Dim T1 As Single, L1 As Single
Dim T2 As Single, L2 As Single
Dim myShp As Shape
With Range("c15")
T1 = .Top
L1 = .Left
End With
With Range("d14")
T2 = .Offset(1, 1).Top
L2 = .Offset(1, 1).Left
End With
Set myShp = ActiveSheet.Shapes.AddLine(L1, T1, L2, T2)
ActiveSheet.Shapes.AddLine(L1, T1, L2, T2).Select

With Selection.ShapeRange.Line
.Visible = msoTrue
.Style = msoLineSolid
.Weight = 5#
.ForeColor.SchemeColor = 10
End With
End Sub

よろしくお願いします。

回答No.2

myRange · ベストアンサー

>どこを削除すればよいのでしょうか

削除のみ、ということであれば、

Set myShp = ActiveSheet.Shapes.AddLine(L1, T1, L2, T2)

これを削除するだけで動作します。

これ以後、変数myShpは使ってないし。。。(^^;;;
以上です。

お礼

ありがとうございました。
午後の仕事に間に合いました。

回答No.1

mo2yakko

Sub 罫線()
Dim T1 As Single, L1 As Single
Dim T2 As Single, L2 As Single
Dim myShp As Shape
With Range("c15")
T1 = .Top
L1 = .Left
End With
With Range("d14")
T2 = .Offset(1, 1).Top
L2 = .Offset(1, 1).Left
End With
Set myShp = ActiveSheet.Shapes.AddLine(L1, T1, L2, T2)
'↓AddLineしてますよ？
'ActiveSheet.Shapes.AddLine(L1, T1, L2, T2).Select
'↓これでよいかと
myShp.Select
With Selection.ShapeRange.Line
.Visible = msoTrue
.Style = msoLineSolid
.Weight = 5#
.ForeColor.SchemeColor = 10
End With
End Sub

お礼

ありがとうございました。