Tabellenkalkulation

Viele Grafiken per Makro löschen

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, ich habe eine Datei erhalten, in der viele, viele, kleine Grafiken verteilt sind (vermutlich irgendwo her reinkopiert). Wie kann ich diese jetzt per Makro löschen? Ich möchte nicht jede einzelne Grafik suchen müssen und löschen. [code] Sub Makro2() ActiveSheet.Shapes("Picture 238").Select Selection.Delete End Sub [/code] Vielen Dank und Grüße Thomas

Antwort 1 von Arno_Nym

Sub Alle_Grafiken_entfernen()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
    Shp.Delete
Next Shp
End Sub

Arno

Antwort 2 von JoeKe

Hi Thomas,

geht aber auch ohne Makro. Die Seite kopieren und nur die Werte in eine neue Tabelle einfügen.

MfG JöKe

Antwort 3 von Event

Hallo

Sub Makro2()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

Gruß

Antwort 4 von JonesM

Hallo,

vielen Dank!

@JöKe: Stimmt, aber dann sind auch die Formeln wech.. ;-)

Grüße Thomas

Antwort 5 von JoeKe

Hi Thomas,

stimmt! :-)
Aber Einfügen=>Formel müste funktionieren?!

MfG JöKe