supprimer une image en VB

[josias]

Bonjour a tous et a toutes !!

Je suis en train de créer un programme en VBA qui permet d'afficher une image dans une feuille selon une condition sur une cellule.
Mon problème est que je n'arrive pas a supprimer l'ancienne image lorsque je veux en faire apparaître une autre.

Voila mon petit bout de programme:

Sub InsertPicture()
Dim MyPicture As Picture
Dim image$

Sheets("DS1").Select

If Range("F28").Value = "102" Then

Sheets("DS2").Select

Range("A1").Select
image = "c:\logoserv.JPG"
Set MyPicture = ActiveSheet.Pictures.Insert(image)
End If

If Range("F28").Value = "103" Then

Sheets("DS2").Select
Range("A1").Select
image = "c:\logodesriac2.JPG"
Set MyPicture = ActiveSheet.Pictures.Insert(image)
End If

End Sub


Merci beaucoup a vous !

 

[michel]

bonsoir Josias

je n'ai pas testé mais tu peux essayer l'adaptation ci dessous : le principe est de nommer les images insérées pour pouvoir les retrouver et les supprimer

Sub InsertPicture()
Dim MyPicture As Picture
Dim image$

On Error Resume Next'gestion erreur pour premieres images non nommées ou inexistantes

Sheets("DS1").Select
If Range("F28").Value = "102" Then
Sheets("DS2").Select
ActiveSheet.Shapes("cible").Delete'supprimer l'ancienne image
Range("A1").Select
image = "c:\logoserv.JPG"
Set MyPicture = ActiveSheet.Pictures.Insert(image)
MyPicture.ShapeRange.Name = "cible"'nommer l'image insérée
End If

If Range("F28").Value = "103" Then
Sheets("DS2").Select
ActiveSheet.Shapes("cible").Delete
Range("A1").Select
image = "c:\logodesriac2.JPG"
Set MyPicture = ActiveSheet.Pictures.Insert(image)
MyPicture.ShapeRange.Name = "cible"
End If

End Sub


bonne soiree
MichelXld

 

[josias]

Bonjour a tous !

Merci Michel, ton code marche très bien !

@ + Josias.