XL 2016 Problème de photo dans Shapes

youky(BJ) · 4 Janvier 2022

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 · 4 Janvier 2022

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) · 4 Janvier 2022

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

XL 2016 Problème de photo dans Shapes

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

fanch55

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

Discussions similaires