Discussion :

[romo3]

Dans une macro d'une feuille de calcul Excel, j'utilise plusieurs fois l'instruction
object.Pictures.Insert(chemin) pour faire afficher des images gif sur une feuille de calcul. Or, quand je fais éxécuter à nouveau la macro, de nouvelles images se superposent aux précédentes sans les effacer et il y a accumulation d'images les unes sur les autres.

Quelle instruction utiliser pour effacer toutes les images avant de commencer à afficher une nouvelle série ?

Merci beaucoup par avance de votre réponse.

[/quote]

[SilkyRoad]

bonsoir

il faut déterminer le nom ou l'index de l'objet dans la feuille , pour le supprimer

Code :

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

ActiveSheet.Shapes("Cible").Delete

dans cet exemple , l'image insérée à l'emplacement de la plage D3:E8 est automatiquement nommée "Cible"
si le nom de l'image existe déja dans la feuille , l'ancienne image est supprimée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub InsertionImage()
Dim Emplacement As Range
Dim image As Object
Dim ShapeObj As Object
 
On Error GoTo fin:
For Each ShapeObj In ActiveSheet.DrawingObjects ' boucle pour supprimer ancienne image
If ShapeObj.Name = "cible" Then ActiveSheet.Shapes("cible").Delete
Next ShapeObj
 
Application.Dialogs(xlDialogInsertPicture).Show
Set Emplacement = Range("D3:E8")
 
Set image = ActiveSheet.DrawingObjects(2) 'adapter selon nombre total de shapes dans feuille
With image.ShapeRange
.Name = "cible" ' nommer l'image insérée ( pour la supprimer plus facilement ensuite )
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
 
Exit Sub
fin:
If Err = 1004 Then MsgBox "Insertion d'image interrompue . "
End Sub

deux autres exemples pour supprimer toutes les images d'une feuille

Code :

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

1
2
3
4
5
6
7
8
Sub supprimerImagesFeuille() 
Dim Sh As Shape 
 
For Each Sh In Worksheets("Feuil1").Shapes 
If Sh.Type = msoPicture Then Sh.Delete 
Next 
 
End Sub

Code :

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

1
2
3
Sub suppressionImagesFeuille()
activeSheet.Pictures.Delete
End Sub

bonne soiree
michel