Bonjour

J'ai un soucis avec la suppression d'une image sur une cellule

en fait mon image est une image de type .JPG externe à l'Excel et elle insérée en N6 d'une feuille par le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
    hot.Activate
    hot.Unprotect Password:=mp
    hot.Range("N16").Select
    ActiveSheet.Pictures.Insert(pathImg).Select
pathImg est ok, l'insertion se fait bien

Par contre quand je veux la supprimer l'image n'est pas supprimée
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
photo = "$N$16"
For Each Sh In hot.Shapes
    If Sh.Type = msoPicture Then
        If Sh.TopLeftCell.Address = photo Then
            Sh.Delete
            Exit For
        Else
        End If
    Else
    End If
Next
Si l'image en N16 est insérée par "Insertion/image/sur la cellule" d'Excel alors le code de suppression fonctionne

Est-ce lié au "msoPicture" qui ne serait pas de ce type pour une image insérée par mon code ?