Discussion :

[Alqualonde]

Bonsoir,

en copiant des données à partir d'Internet régulièrement, je récupère en même temps des images qui s'accumulent au fil du temps, étant donné que je ne les supprime pas manuellement à chaque fois.

J'aimerais pouvoir m'en débarrasser quand je les récupère, mais avant tout, pouvoir me débarrasser de toutes celles que j'ai accumulées.

J'ai fait un code pour en supprimer une :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 ActiveSheet.Shapes("Picture 2425").Select
    Selection.Delete
    ActiveSheet.Shapes("Picture 2426").Select
    Selection.ShapeRange.Item(1).Hyperlink.Delete
    Selection.Delete

Mais j'aimerais pouvoir étendre ça à toutes les "shapes" que j'ai dans cette feuille. J'ai réussi à faire ça pour les tableaux croisés dynamiques mais je ne trouve pas comment le faire pour les shapes. Quelqu'un aurait-il une lumière à m'apporter ? D'avance merci :-)

[Jean-Philippe André]

Bonjour,
piste à étudier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each tmpShape In CurrentSheet.Shapes

[Antoniom]

Hello,

Tu peux essayer ceci...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub EffaceImages()
 
    Dim x As Shape
 
    For Each x In ActiveSheet.Shapes
        If x.Type = msoPicture Then x.Delete
    Next x
 
End Sub

Cdt, mOOm.

[JPierreM]

ou peut -être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Shapes.SelectAll

une fois les shapes sélectionnés fais en ce que tu veux

[DeaD78]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Activesheet.Shapes.SelectAll
Selection.Delete

ou plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Option Compare Text
 
Sub efface()
    Dim img As Shape
 
    For Each img In Worksheets("TaFeuille").Shapes
     If img.Name Like "*PICTURE*" Then
        img.Delete
     End If
    Next
 
End Sub

Première méthode, tu supprimes toutes les Shapes d'un coup et puis basta ! Deuxième, seulement les images et non toutes les Shapes. Enlève la condition si tu souhaites enlever toutes les Shapes et non seulement les images. Modifie là si tu souhaites enlever seulement certaines sortes de Shapes.

Ca revient en gros à ce qui a été dit précédemment.

Bonne chance