Nur Bilder löschen
DirkR
ich versuche mich nun schon seit Stunden an einem Code aus dem Forum, komme aber nicht weiter und hoffe auf eure Hilfe.
Folgender Code aus dem Forum:
Sub Bild1_löschen()
Dim shShape As Shapes
Dim inShape As Integer
If Sheets("DVD Cover").Shapes.Count > 0 Then
For inShape = 1 To Sheets("DVD Cover").Shapes.Count
With Sheets("DVD Cover").Shapes(inShape)
If .Top > Range("C3").Top And .Top Range("C3").Left And .Left Ich möchte allerdings, dass nur die Bilder im Bereich gelöscht werden.
Gruß DirkR