Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Bilder aus Excelmappe entfernen"
Bilder in Videoliste eintragen und löschen Bilder in UserForm und Bildgröße anpassen
Bildergruppe in anderes Blatt kopieren Fehler entfernen
Alle leeren Zeilen und Spalten entfernen Zeilenumbrüche im aktiven Blatt entfernen
Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen In mehrere Spalten doppelte Inhalte entfernen
Leerzeichen zwischen Zeichen- und Zahlenfolge entfernen Entfernen der letzten beiden Zeichen in Listenelementen