Buider in allen Tabellen löschen
17.11.2016 11:59:25
Peter
bitte um Eure Hilfe.
Folgendes Makro soll alle Bilder in allen Tabellen löschen.
Leider werden die Bilder nur in der aktuellen Tabelle gelöscht. Könnte jemand das Makro so ändern, dass die Bilder in allen Tabellenblättern gelöscht werden
Sub pictures_delete2()
Dim Sh As Shape
Application.ScreenUpdating = False
Dim LoI As Long
Dim LoZeile As Long
For LoI = 5 To Worksheets.Count
With Worksheets(LoI)
For Each Sh In ActiveSheet.Shapes
If InStr(1, Sh.Name, "Pict") > 0 Then
Sh.Select
Sh.Delete
End If
Next Sh
End With
Next
Application.ScreenUpdating = True
End Sub
LG
Peter
Anzeige