Excel2003のマクロで複数の罫線を引きたい

質問

Excel2003のマクロで複数の罫線を引きたい

本日（3月2日）の午前中に罫線のVBAに関する質問をして解決したのですが、今度は複数のセルにわたる罫線を複数引きたいのですが、ご教示お願いいたします。

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

このコードで（14行目と15行目の間、C列からD列）に赤の太線が表示されるようになりました。
さらにこれに加えて一度で、この罫線プラスA列の10行目からC列の14行目に引く罫線を加えたいのですが
上記コードにどのように書きくわえれば良いのでしょうか。

たびたびですみませんが、ご教示よろしくお願いいたします。

回答No.1

myRange · ベストアンサー

前の質問に回答した、myRangeです。

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

これ、削除するんじゃなかった？？？？(^^;;;

＞このコードで（14行目と15行目の間、C列からD列）に赤の太線が表示されるようになりました。

これでは、１４行目と１５行目の間ではなくて、１５行目の枠線上に引かれますよね。

＞さらにこれに加えて一度で、この罫線プラスA列の10行目からC列の14行目に引く罫線を加えたいのですが

情報が不足です。
（１）セルＡ１０の上端から、セルＣ１４の上端へ引く
（２）セルＡ１０の上端から、セルＣ１４の下端へ引く
（３）セルＡ１０の下端から、セルＣ１４の上端へ引く
（４）セルＡ１０の下端から、セルＣ１４の下端へ引く
さて、どれでしょうか。

恐らく、最初の線に繋げるのでしょうね。

'---------------------------
With Range("A10")
　　T1 = .Top
　　L1 = .Left
End With

With Range("C15")
　　T2 = .Top
　　L2 = .Left
End With

ActiveSheet.Shapes.AddLine(L1, T1, L2, T2).Select
With Selection.ShapeRange.Line
　　.Visible = msoTrue
　　.Style = msoLineSolid
　　.Weight = 5#
　　.ForeColor.SchemeColor = 10
End With
'-----------------------------------------

上記の線と違ったらどこを変えればいいかわかりますね。
以上です。

お礼

どうにか複数の罫線を同時に表示させることができました。
またまた、ありがとうございました。
感謝しています。では。

補足

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

これ、削除するんじゃなかった？？？？(^^;;;

すみません最初に質問したコードを貼り付けてしまったもので。

＞１４行目と１５行目の間ではなくて、１５行目の枠線上に引かれますよね。
そのとおりです。
この罫線と（１）セルＡ１０の上端から、セルＣ１４の上端へ引く

の計2本の罫線を同時に引きたいという内容でした。

言葉足らずで申し訳ありませんでした。