Renommer des images insérer
Bonjour à tous
Je cherche à automatiser l'insertion de photos dès que je remplis un tableau source,lorsque j'ouvre la feuil"Trombinoscope Cadre". Le but est de renommé chaques photos insérer afin de créer une macro qui supprimera toutes les photos insérée afin de reinitialiser le document pour une utilisation par d'autres personnes.
Merci à vous
Bonjour,
Avec la méthode .addpicture :
sub test
with activesheet
with .shapes.addpicture(...)
.name = "nouveaunom
end with
end with
end subhttps://docs.microsoft.com/fr-fr/office/vba/api/excel.shapes.addpicture
Voici le lien pour que vous y consultiez les arguments de la méthode.
Cdlt,
Merci à vous. Je vais essayer ça tout de suite.
Cordialement
bonjour,
Moi je déconseille ce genre de sport . Créer des images pour les renommer puis les supprimer pour en créer d'autres ça sent l'ectoplasme à plein nez :
Mon conseil est d'utiliser :
MyImg.Picture = LoadPicture("NomImage" & ".jpg")
Pas besoin de la supprimer on change le contenu si nécessaire ou on l'envoie au diable avec un .Left = 2000 et basta...
A+
Je v vois pas trop à quel moment inclure ça dans la formule mais je vais regarder également
Sorry, tu peux ignorer mon observation j'avais pas vu ton fichier joint.
A+
Pas de soucis j'ai opter pour une suppression de toutes les images et remettre celles de base avec les liens de macro 😉