Excelの直線一括削除

教えてください。
Excelのシートに引き詰められたオートシェイプの直線を一括に削除したいのですが、そんな方法はありますか？

No.1 回答者： kamejiro 回答日時： 2006/10/21 11:36

「図」のツールバーが表示された状態で

「オブジェクトの選択」のアイコン（マウスポインタの形をしています）をクリック
→マウスでオートシェイプ等、図形の領域を矩形で囲み、領域選択
→編集→切り取り　（または、Deleteキー）

でいいのしょうか？。

No.2 ベストアンサー 回答者： misatoanna 回答日時： 2006/10/21 11:43

シート上に、他に消したくない図形が無い場合ですが――

どれかひとつの図形を選択した状態で、[Ctrl] と [Shift] を押しながらスペース
キーを押すと、シート上のすべての図形が選択されます。そこで削除。

No.3 回答者： moon_piyo 回答日時： 2006/10/21 14:22

こんちは

vbaだと
こんな感じかなぁ
Sub foo()
For Each sh In ActiveSheet.Shapes
If sh.Type = msoLine Then
sh.Delete
End If
Next
End Sub

No.4 回答者： takkuni 回答日時： 2006/10/21 15:02

F5を押すと、ジャンプメニューが出てきます。

そのメニューの左下にある「セル選択」ボタンをクリック。
次のメニューで「オブジェクト」にチェック。
OKを押すと直線が一括して選択されるので「del」キーで削除。
もし、他にも直線以外のオブジェクトがあればそれも選択されますのでご注意下さい。

No.5 回答者： CHRONOS_0 回答日時： 2006/10/21 15:45

直線だけではなく矢印も消えてしまいますが

Sub LineDelete()
Dim SH As Shape


For Each SH In ActiveSheet.Shapes
If SH.Type = 9 Then
SH.Select (False)
End If
Next

Selection.Delete
End Sub