描画した Line 番号の取得方法

描画した Line 番号の取得方法
VB6 Excel,2000
線をVBで２本引き、その線をグループ化させようと考えています。
下記コードの Range(Array("LIne " & 線A, "LIne " & 線B))に
２本引いた線の番号を入れたいのですが引いた線のLine番号を
取得する方法が分かりません、宜しくお願いします。

Dim xlApp As Excel.Application
Set xlApp = GetObject(, "Excel.Application")
xlApp.ActiveSheet.Shapes.AddLine 50, 50, 100, 100 '線A
xlApp.ActiveSheet.Shapes.AddLine 100, 50, 50, 100 '線B
xlApp.ActiveSheet.Shapes.Range(Array("LIne " & 線A, "LIne " & 線B)).Select
xlApp.Selection.ShapeRange.Group.Select
Set xlApp = Nothing

No.1 ベストアンサー 回答者： okormazd 回答日時： 2010/05/20 14:34

1例

Dim xlApp As Excel.Application
Set xlApp = GetObject(, "Excel.Application")
lnameA = xlApp.ActiveSheet.Shapes.AddLine(50, 50, 100, 100).Name '線A
lnameB = xlApp.ActiveSheet.Shapes.AddLine(100, 50, 50, 100).Name '線B
MsgBox lnameA & " " & lnameB
xlApp.ActiveSheet.Shapes.Range(Array(lnameA, lnameB)).Select
xlApp.Selection.ShapeRange.Group.Select
Set xlApp = Nothing

この回答へのお礼

.Name　を追加で実行すると共にLine名まで取得出来るんですね。
おかげさまで解決しました。有難う御座いました。

お礼日時：2010/05/20 15:00