XL 2016 Problème de photo dans Shapes

[youky(BJ)]

Bonjour à tous
J'ai oublié que les images inserées dans une Shape avait un lien avec l'image source
Si l'image source diparait ou est renommée hop! plus d'image lors de la réouverture.
Existe t'il une solution?
Voici mon fichier exemple vous pouvez choisir et mettre les photos de votre choix
Bruno

 

[fanch55]

Bonjour Bruno et bonne année,

Remplacer

Set img = ActiveSheet.Pictures.Insert(ChemFich)​

par

Set img = ActiveSheet.Shapes.AddPicture(ChemFich, False, True, Selection.Left, Selection.Top, -1, -1)​

Plus de liaison mais le classeur augmente de taille ...

 

[youky(BJ)]

Franch55,
Un grand merci cela fonctionne parfaitement.
Je n'aurais pas trouvé seul.
Par contre c'est sur, il faut surveiller la taille des photos normalement très réduite avant l'insertion.
Alors parfait et bravo
Bruno