全シート選択するには？

質問

マクロ初心者で申し訳ありません。
シート１の画像を残して削除するマクロなんですが、
シート１しか対応してませんので、これを全シートにするには
どうしたらよいか教えてください。
ちなみにシートは　１ページ、２ページ～１０ページまであります。

Dim myShap As Shape

With Sheet1.GroupObjects
Do Until .Count=0
.Ungroup
Loop
End With

For Each myShap In ActiveSheet.Shapes
If myShap.Type <> msoPicture Then
myShap.Delete
End If
Next

回答No.2

noname#62235

＃１です。
質問文中のマクロはあなたが考案したものではないのですか？
あなたの書いたマクロは、Sheet1に対して処理を行うもの。
私の示したのは、全シートに対して同じ処理を行う汎用的な方法。
だから、Sheet1を「シート」に置き換えて、For Each ～ Nextで全体を囲ってやればいいだけ。

あなたの作ったマクロの後半部分でも、同じようなロジックが使われています。

Dim myShap As Shape
Dim シート As Worksheet

For Each シート In Worksheets

With シート.GroupObjects
Do Until .Count=0
.Ungroup
Loop
End With

For Each myShap In シート.Shapes
If myShap.Type <> msoPicture Then
myShap.Delete
End If
Next

Next

動かしてないので動くかどうかわかりませんが。

お礼

回答についてはありがたく思います。
前任者が辞めたため、バックアップのエクセルを入れた。
前任者はどうも、１シートごと保存していたようで、
私はめんどくさがりやなので、いっぺんにと思い書き込みました。

回答No.1

noname#62235

dim シート as worksheet

for each シート in worksheets
# シートに対して処理を行う
next

お礼

初心者なんで　もう少し分かりやすくお願いします。