Option Explicit
Sub Loeschen_Shapes_mit_Zeile()
Dim oShape As Shape
If MsgBox("Bilder und andere Objekte zusammen mit aktiver Zeile löschen?", _
vbQuestion + vbYesNo, "Zeilen mit Objekten löschen") = vbYes Then
For Each oShape In ActiveSheet.Shapes
If Not Intersect(oShape.TopLeftCell, ActiveCell.EntireRow) Is Nothing Then
oShape.Delete
End If
Next
ActiveCell.EntireRow.Delete
End If
End Sub
Sub Loesche_Shapes_in_Zelle()
Dim oShape As Shape
For Each oShape In ActiveSheet.Shapes
If Not Intersect(oShape.TopLeftCell, Range("N60")) Is Nothing Then
oShape.Delete
End If
Next
End Sub
Um ein Bild in einer bestimmten Zelle, wie zum Beispiel N60, zu löschen, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul.
Füge den folgenden Code in das Modul ein:
Sub Loesche_Shapes_in_Zelle()
Dim oShape As Shape
For Each oShape In ActiveSheet.Shapes
If Not Intersect(oShape.TopLeftCell, Range("N60")) Is Nothing Then
oShape.Delete
End If
Next
End SubSchließe den VBA-Editor.
Gehe zurück zu deiner Excel-Tabelle und drücke ALT + F8, wähle das Makro Loesche_Shapes_in_Zelle aus und klicke auf Ausführen.
Damit wird das Bild in Zelle N60 gelöscht.
Fehler: Das Bild wird nicht gelöscht.
Fehler: Makro kann nicht ausgeführt werden.
Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen.Falls du kein VBA verwenden möchtest, kannst du auch manuell Bilder in Excel löschen:
Entf-Taste auf deiner Tastatur.Um alle Bilder aus Excel zu entfernen, gehe wie folgt vor:
Löschen.STRG + A drücken, um alle Objekte auszuwählen, und dann Entf drücken.Angenommen, du hast mehrere Bilder in verschiedenen Zellen. Wenn du Bilder in Zelle N60 und N61 löschen möchtest, kannst du den folgenden Code anpassen:
Sub Loesche_Shapes_in_mehreren_Zellen()
Dim oShape As Shape
Dim zellen As Range
Set zellen = Range("N60,N61")
For Each oShape In ActiveSheet.Shapes
If Not Intersect(oShape.TopLeftCell, zellen) Is Nothing Then
oShape.Delete
End If
Next
End SubDieses Makro entfernt alle Bilder aus Excel, die sich in den angegebenen Zellen befinden.
ActiveSheet.Shapes.SelectAll und Selection.Delete, um schnell alle Bilder zu löschen.1. Wie kann ich alle Bilder aus Excel entfernen? Um alle Bilder zu löschen, kannst du folgendes Makro verwenden:
Sub Alle_Bilder_entfernen()
Dim oShape As Shape
For Each oShape In ActiveSheet.Shapes
oShape.Delete
Next
End Sub2. Kann ich Bilder in mehreren Zellen gleichzeitig löschen? Ja, indem du den Code anpasst, wie im Beispiel oben gezeigt. Du kannst mehrere Zellen in einer Range definieren und die Bilder in diesen Zellen löschen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen