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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen