Alle foto's in 1 macro verwijderen

Status
Niet open voor verdere reacties.

Offthefield

Gebruiker
Lid geworden
27 apr 2005
Berichten
369
Ik heb een bestand met 400 foto's in kolom C (nu gereduceerd tot 3)
die ik in 1 macro leeg wil laten maken, nu moet ik iedere keer 400
cellen handmatig leeg maken

Heeft iemand een idee hiervoor?

bvd
 

Bijlagen

  • Spel.xls
    778,5 KB · Weergaven: 24
Dat kan met deze:
Code:
Sub VerwijderPlaatjes()
    For Each sh In ActiveSheet.Shapes
        If LCase(Right(sh.Name, 4)) = ".jpg" Then
            sh.Delete
        End If
    Next sh
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan