Bilder aus Excelmappe entfernen

Bild

Betrifft: Bilder aus Excelmappe entfernen
von: Mike E.
Geschrieben am: 04.03.2005 17:03:21
Hallo zusammne,
leider füllt sich eine Excelmappe durch Copy/Paste nach und nach mit immer mehr Bildchen, so dass die Dateigröße zunehmend darunter leidet.
Ich hatte überlegt, die Bildchen (Name z.B.: Shapes("Picture 6578") mittels For/Next-Schleife zu löschen, allerdigs scheint es so, dass die Numerierung der Bildchen nicht wirklich fortlaufend ist.
Hat jemand von euch eine Idee, wie man die Bilder schnell entfernen kann?
Besten Dank für eure Hilfe
Mike

Bild

Betrifft: AW: Bilder aus Excelmappe entfernen
von: Hajo_Zi
Geschrieben am: 04.03.2005 17:05:09
Hallo Mike

Sub t()
'   wenn deren erste drei Buchstaben "Pic" sind
    For InI = ActiveSheet.Shapes.Count To 1 Step -1
       If Left(ActiveSheet.Shapes(InI).Name, 3) = "Pic" Then
           ActiveSheet.Shapes(InI).Delete
       End If
    Next
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: Klasse: Bilder aus Excelmappe entfernen
von: Mike E.
Geschrieben am: 04.03.2005 17:09:58
Hi Hajo,
super, danke...
Alter Schwede, das hat gut zwei Minuten gedauert, bis alle Bilder gelöscht waren...
Vielen Dank!
Mike
Bild

Betrifft: AW: Bilder aus Excelmappe entfernen
von: th.heinrich
Geschrieben am: 04.03.2005 17:08:02
hi Mike,
hast Du schon mal an
Bearbeiten-Gehe zu-Inhalte-Objekte gedacht?
gruss thomas
Bild

Betrifft: AW: Bilder aus Excelmappe entfernen
von: Mike E.
Geschrieben am: 04.03.2005 17:11:25
Hi Thomas,
nein, ehrlich gesagt nicht. Ich werde es mir umgehend ansehen.
Vielen Dank!
Mike
Bild

Betrifft: AW: Bilder aus Excelmappe entfernen
von: ransi
Geschrieben am: 04.03.2005 17:12:35
hallo mike
das hier ist die harte tour:
löscht allerdings alles was irgendwie ein shape ist.
Public

Sub alle_weg()
Shapes.SelectAll
Selection.Delete
End Sub

ransi
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bilder aus Excelmappe entfernen"