エクセルVBA シート全部のLineを消す方法

いつも皆様には大変お世話になっております。
今日の質問は・・・
シート全部のLineを一回で消す方法をお尋ねしたいです。

基本的には
ActiveSheet.Shapes("Line 1").Select
Selection.Delete

に、なるかと思いますが、
Lineの後の数字の部分が何番になるか分かりません。
と言うか、いっぱいLineがあります。
そういう場合のLineの消し方とかはあるのでしょうか？

皆様宜しくお願い致します。

No.1 ベストアンサー 回答者： jazzkazz 回答日時： 2005/03/11 11:01

コレでよろしいかと思います。

wkCnt = ActiveSheet.Shapes.Count
For i = wkCnt To 1 Step -1
'線だったら
If ActiveSheet.Shapes(i).Type = 9 Then
ActiveSheet.Shapes(i).Delete
End If

Next

シェイプを最大から処理している理由は削除した際にシェイプの(i)がずれていく為、このようにしていきます。

この回答へのお礼

お返事ありがとうございます
上記でばっちり動きました＾＾
またよろしくお願い致します＾＾

お礼日時：2005/03/11 17:00

No.3 回答者： AloneAgain 回答日時： 2005/03/11 11:21

No.2です。

スミマセン、
余計なもの↓つけました。
With ActiveSheet
　
End With

↓だけでいいです。
-----------------
Sub test()
Dim Sh As Shape

For Each Sh In ActiveSheet.Shapes
If Sh.Type = msoLine Then
Sh.Delete
End If
Next Sh

End Sub
-----------------

No.2 回答者： AloneAgain 回答日時： 2005/03/11 11:09

こんにちは。

↓でどうでしょうか？
-------------------------------------
Sub test()
Dim Sh As Shape

With ActiveSheet
For Each Sh In ActiveSheet.Shapes
If Sh.Type = msoLine Then
Sh.Delete
End If
Next Sh
End With

End Sub
--------------------------------------

この回答へのお礼

お返事ありがとうございました
問題解決いたしました＾＾
またよろしくお願い致します
（サーバーに接続できません状態が続きお返事遅くなり申し訳ありません；；

お礼日時：2005/03/11 17:02