Code pour supprimer les images.

Hulk

XLDnaute Barbatruc

• 19 Mars 2010

• #2

Re : Code pour supprimer les images.

Re,

C'est bon ! Quel c.. je fais parfois

Code:

 If Left(Pic[B].Name[/B], 5) = "Image" Then

Bonne fin de journée !

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 19 Mars 2010

• #3

Re : Code pour supprimer les images.

Re,

Ben non

Au secours

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 19 Mars 2010

• #4

Re : Code pour supprimer les images.

Bonjour Hulk,
Je dit peut être n'importe quoi mais ...
Pourquois pas

Code:

For Each Pic In ActiveSheet.Shapes
        If Left(Pic.Name, 5) = "Image" Then Pic.Delete
Next Pic

Sans exemple je n'ai pas testé
Cordialement

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 19 Mars 2010

• #5

Re : Code pour supprimer les images.

Re,

Ben non ton code supprime aussi les CommandButton

Mais fait c'est ça et cette fois je crois que c'est bon...

Code:

    Dim Pic As Shape
    
    Application.ScreenUpdating = False

    For Each Pic In ActiveSheet.Shapes
        If Left(Pic.Name, 5) [B]<>[/B] "Image" Then
            If Pic.Type = msoPicture Then Pic.Delete
        End If
    Next Pic

Merci quand Efgé !

Bonne journée... à tous.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Mars 2010

• #6

Re : Code pour supprimer les images.

Bonjour Hulk, efge

essaye peut être ainsi :

Code:

Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes
    If Pic.Name Like "Picture*" Then Pic.Delete
Next Pic

bon après midi
@+

Edition : un end if en trop....

 

Dernière édition: 19 Mars 2010

Vote positif 0 Vote négatif

H

hbenalia

XLDnaute Occasionnel

• 19 Mars 2010

• #7

Re : Code pour supprimer les images.

Bonjour à tous


Un essai avec le code (en macro) suivant:

Code:

Sub Suppr_Images()
    ActiveSheet.DrawingObjects.Select
    Selection.Delete
End Sub

Le code (Testé et efficace) suppime toutes sortes d'images (photos, objets, cadres...) sans le contenu des cellules.


Cordialement

 

Dernière édition: 19 Mars 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Mars 2010

• #8

Re : Code pour supprimer les images.

Re, bonjour hbenalia

@hbenalia
ton code supprimera également les "CommandButton" et il semble qu'Hulk ne le désire pas, voir post #5

 

Vote positif 0 Vote négatif

H

hbenalia

XLDnaute Occasionnel

• 19 Mars 2010

• #9

Re : Code pour supprimer les images.

Pierrot93 à dit:

Re, bonjour hbenalia

@hbenalia
ton code supprimera également les "CommandButton" et il semble qu'Hulk ne le désire pas, voir post #5

Cliquez pour agrandir...

Bonjour Pierrot93,

Merci Pierrot93 pour la remarque, certainement mon code supprime tout comme indiqué dans mon post... Ton code n'est pas mal sauf qu'il ne supprime pas les objets de l'outil Dessin (cadres, cercles, traits, ...etc.).

Cordiales salutations

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Mars 2010

• #10

Re : Code pour supprimer les images.

Re,

Ton code n'est pas mal sauf qu'il ne supprime pas les objets de l'outil Dessin (cadres, cercles, traits, ...etc.).

Cliquez pour agrandir...

en l'état ne devrait supprimer que les images, je pense que c'est ce que veut Hulk, laissons le revenir sur le fil...

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 19 Mars 2010

• #11

Re : Code pour supprimer les images.

Re,

Pierrot a raison, mais je garde aussi le tien hbenalia !

Quoi qu'il en soit, merci à vous tous !

Pb résolu.

 

Vote positif 0 Vote négatif