vba Shapes.AddLineの名前取得について教えてください

いつもお世話になります
昨日も教えて頂いたのですが、もう一度教えてください

昨日、質問したShapes.Addlineの名前取得について
実は二通りの描き方をしていたのです

ひとつは昨日質問したステートメントで下記のようにして上手く名前(Linemei)を取得できました
With ActiveSheet.Shapes.AddLine(X1, Y1, X2, Y2).Line
.ForeColor.SchemeColor = 0
.Weight = 0.5
Linemei = .Parent.Name
End With

Linemei は Straight Connector 1

しかし、次のようなステートメントにするとLinemeiがシート名になってしまいます
ActiveSheet.Shapes.AddLine(X1, Y1, X2, Y2).Select
With Selection
.ShapeRange.Line.ForeColor.SchemeColor = 0
.ShapeRange.Line.Weight = 0.5
Linemei = .Parent.Name
End With

Linemei は Sheet1
この場合は名前取得のステーメントを教えて頂ければ幸いです

以上、よろしくお願い申し上げます

No.1 ベストアンサー 回答者： fujillin 回答日時： 2018/11/13 15:45

こんにちは

Selectionが対象なのでしょうから
　Linemei = .Name
ではダメなのでしょうか？

この回答へのお礼

そんなですね

いつも、ありがとうございます
助かりました
これからもよろしくお願いします

お礼日時：2018/11/13 16:27