In meiner Tabelle sind viele Fotos eingebunden. Ich möchte jetzt per Makro einfach nur z.B. das Foto in Zelle N60 löschen. Kann mir vielleicht irgendjemand helfen ? Im Vorraus schon mal vielen Dank !
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
Probier mal, ob die zweite Prozedur das tut, was du jetzt möchtest.