AW: Grafiken per SVerweis kopieren
08.01.2022 12:41:39
Edgar
Meine Logos sind immer in Reihe 2, Spalten B,C,E,F,H,I,K,L,N,O,Q,R,T,U,W,X,Z,AA
Ich habe das jetzt so in Deiner Lösung eingebaut
Public Sub LogosDelete()
Dim objShape As Shape
For Each objShape In ActiveSheet.Shapes
If Not Intersect(objShape.TopLeftCell, Range("B2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("C2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("E2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("F2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("H2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("I2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("K2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("L2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("N2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("O2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("Q2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("R2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("T2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("U2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("W2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("X2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("Z2")) Is Nothing Then Call objShape.Delete
If Not Intersect(objShape.TopLeftCell, Range("AA2")) Is Nothing Then Call objShape.Delete
Next
End Sub
Da kommt dann immer ein Laufzeitfehler 104 - Anwendungs.- oder objektdefinierter Fehler
beim ersten Shape was vorhanden ist