Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Grafik >400 löschen

Forumthread: Grafik >400 löschen

Grafik >400 löschen
14.09.2013 16:58:51
Heinz
Hallo Leute
Ich möchte Grafiken die grösser 400 sind löschen.
Zb.Grafik 498
Könnte mir bitte jemand helfen?
Gruß Heinz

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Grafik >400 löschen
14.09.2013 17:27:14
Hajo_Zi
Hallo Heinz,
ich erstelle nun nicht so eione Datei, Die Zeit hat schon jemand investiert.
Ungetestet 
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

Anzeige
AW: Grafik >400 löschen
14.09.2013 17:39:24
Heinz
Hallo Hajo
Super Danke.
Noch ein schönes WE
Gruß Heinz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige