Ich möchte Grafiken die grösser 400 sind löschen.
Zb.Grafik 498
Könnte mir bitte jemand helfen?
Gruß Heinz
Option Explicit
Sub Bilder_loeschen()
Dim InI As Integer ' Schleifenvariable
With ActiveSheet
For InI = .Shapes.Count To 1 Step -1
If InStr(.Shapes(InI).Name, " ") > 0 Then
If IsNumeric(Mid(.Shapes(InI), InStrRev(.Shapes(InI).Name, " ") + 1)) Then
If Mid(.Shapes(InI), InStrRev(.Shapes(InI).Name, " ") + 1) > 400 Then
.Shapes(InI).Delete
End If
End If
End If
Next
End With
End Sub