Wie entfernt man alle Bilder aus einem Zellbereich?
Wenn mehrere Bilder in Ihr Arbeitsblatt eingefügt wurden und Sie einige davon schnell innerhalb eines begrenzten Bereichs löschen möchten – wie gehen Sie dabei vor?
Löschen aller Bilder in einem bestimmten Zellbereich mithilfe von VBA-Code
Löschen aller Bilder in einem Arbeitsblatt oder in einer gesamten Arbeitsmappe mit Kutools für Excel
Löschen aller Bilder in einem bestimmten Zellbereich mithilfe von VBA-Code
Der folgende einfache VBA-Code ermöglicht es Ihnen, sämtliche Bilder im ausgewählten Bereich auf einmal zu löschen – ohne jedes einzelne manuell entfernen zu müssen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Löschen aller Bilder in einem Bereich auswählen von Zellen:
Sub DeletePic()
Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Application.ScreenUpdating = False
Set xRg = Range("A5:B8")
For Each xPic In ActiveSheet.Pictures
Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
Next
Application.ScreenUpdating = True
End Sub
Hinweis: Im obigen Code steht A5:B8 für den Bereich, aus dem Sie die Bilder löschen möchten. Passen Sie diesen Bereich entsprechend Ihren Anforderungen an.
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Die Bilder im Auswahlbereich werden dann sofort gelöscht (siehe Screenshot):
Löschen aller Bilder in einem Arbeitsblatt oder in einer gesamten Arbeitsmappe mit Kutools für Excel
Wenn Sie alle Bilder aus einem Arbeitsblatt oder einer Arbeitsmappe entfernen möchten, unterstützt Sie das Kutools für Excel-Tool Bilder und Objekte löschen dabei.
Nach der Installation von Kutools für Excelgehen Sie bitte wie folgt vor:
1. Klicken Sie auf Kutools > Löschen > Bilder und Objekte löschen, siehe Screenshot:
2. Aktivieren Sie im Dialogfeld Bilder und Objekte löschen das Kontrollkästchen Bilder im Abschnitt Löschen, und wählen Sie anschließend im Abschnitt Suchen in den gewünschten Geltungsbereich aus, aus dem die Bilder gelöscht werden sollen (siehe Screenshot):
3. Klicken Sie anschließend auf die Schaltfläche OK, und alle Bilder werden entsprechend Ihrer Auswahl aus dem Arbeitsblatt oder der gesamten Arbeitsmappe gelöscht.
Kutools für Excel – Ausgestattet mit über 300 unverzichtbaren Werkzeugen für Excel. Erledigen Sie Ihre Excel-Aufgaben schneller, einfacher und effizienter.Jetzt herunterladen!
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins