Comment effacer des photo insérées en nombre ?

bjr

comment fait on pour effacer des photos insérées en grand nombre ,en une seule opération , si c'est possible ?

merci

Hello,

Comme ceci...

    Dim img As Shape

    For Each img In Sheets("Feuil1").Shapes
        If img.Name Like "Picture*" Then
            img.Delete
        End If
    Next img

Attention efface toutes les images !

Salut,

Essaies ca : (FAIS UN TEST SUR UNE COPIE DE FICHIER)

Sub deleteallImageinsheet()
Dim t As Shape
For Each t In ActiveSheet.Shapes
    If t.Type = 13 Then
            t.Delete
   End If
Next
End Sub

la ligne : If t.Type = 13 Then permet de ne supprimer que les images (et pas les graphiques et autres...)

Damien

Ok , merci d'avoir répondu , mais quand tu "tout" , cela concerne t il l'onglet (ou feuille concernée) ou tout le fichier ? car c'est seulement sur un ou deux onglet d'un classeur que je veux faire, il en comporte une 15aine !

si j'ai bien compris il faut écrire ce vba par clic droit de l'onglet , ( je débute encore ! )

Pour utiliser l'une ou l'autre solution :

Dans Excel taper sur le clavier ALT+F11 (l'editeur VBA se lance)

Dans la partie haut gauche : Click droit sur VBAProject(NomFichier)

Puis clique gauche sur Insertion - > Module

Double click sur Module - > Module1

Dans la partie supérieur droite coller le code fourni

Fermer l'editeur VBA

Dans excel se postionner sur l'onglet contenant les images a supprimer:

Cliquer dans le menu excel : Outils -> Macro-> Macros selectionner la macro puis cliquer sur Executer.

Damien

Bonjour

je reviens après une longue absence,dont je suis désolé , de n'avoir remercié les personnes m'ayant apporté une solution a mon problème , Bigdams entre-autre

Voilà c'est chose faite , merci encore, la solution a été fructueuse , il m'as faluu apprendre ces derniers temps a apprendre a placer une vba, car je ne comprends pas encore tout en tant que débutant !

A bientôt !