in einer Tabelle sind viele Grafiken.
Ich möchte jedoch nur die Grafiken löschen, die vollständig
auf dem Bereich A1:E10 liegen.
Hat jemand eine Idee?
Sub Bild_weg()
Dim i As Integer
On Error Resume Next
For i = 1 To Worksheets("Tabelle1").Shapes.Count
If Shapes(i).Left + Shapes(i).Width < Range("a1:a10").Left + Range("a1").Width And _
Shapes(i).Height - Shapes(i).Top < Range("a1:a10").Height _
Then Shapes(i).Delete
Next
End Sub
Sub weg()
Dim i As Integer
On Error Resume Next
For i = 1 To Worksheets("Tabelle1").Shapes.Count
If Shapes(i).Left + Shapes(i).Width < Range("a1:a10").Left + Range("a1").Width And _
Shapes(i).Height + Shapes(i).Top < Range("a1:a10").Height _
Then Shapes(i).Delete
Next
End Sub
Sub Bild_weg()
Dim i As Integer
On Error Resume Next
For i = 1 To Worksheets("Tabelle1").Shapes.Count
If Shapes(i).Left + Shapes(i).Width < Range("a1:e10").Left + Range("a1:e10").Width And _
Shapes(i).Height + Shapes(i).Top < Range("a1:e10").Height _
Then Shapes(i).Delete
Next
End Sub