Afbeeldingen verwijderen

[Joske2000]

Goedemiddag,

Ik zou een aantal afbeeldingen moeten kunnen verwijderen (via VBA).

Met de volgende kan ik alle afbeeldingen selecteren, maar dan selecteert hij ook de 2 die in de header staan.

ActiveSheet.Pictures.Select

Kent er iemand code om alle afbeeldingen (de vlaggetjes) te selecteren behalve "Picture1" en "Picture2".

Bedankt,

Joske

 

[alphamax]

Sub Main()
    For Each objPicture In ActiveSheet.Pictures
        With objPicture
            If Not (.Name = "Picture 1" Or .Name = "Picture 2") Then
                .Delete
            End If
        End With
    Next
End Sub

 

[popipipo]

Je selecteert alle afbeeldingen via:
F5
specials
objects

Deselecteer de afbeeldingen die je niet wilt verwijderen dmv de controltoets
daarna kun je dus eenvoudig de overige afbeeldingen verwijderen.

 

[Joske2000]

Hallo,

Beter laat dan nooit, probleem is opgelost.
Heb de afbeeldingen die niet mochten verwijderd worden gegroepeerd, en dan wordt via "ActiveSheet.Pictures.Select" de groep niet mee geselecteerd voor verwijdering.

Thx,

Joske