Microsoft 365 Comment mettre image d'une note dans Userform ?

[Francky79]

Bonjour,

Est-il possible de mettre une image d'une note dans un userform ?
Voir fichier en pièce jointe
Merci pour votre aide.

 

[sylvanu]

Bonjour Francky,
Un ex de PatrickToulon sur XLD :

Microsoft 365 - Récupérer image d'une note (Shape)

Bonjour àtous, J'ai un fichier (tarif) avec dans des cellules des images qui s'affichent quand on la survole j'ajoute une image à la note de ma cellule .Comment.Shape .Fill.UserPicture FichierImage Dans un autre fichier je viens lire les cellules et je récupère les infos...

excel-downloads.com

 

[patricktoulon]

Re bonjour bonjour 😁 😁 😁
déjà je vais commencer par filer des roustes a @Franky79
qui n'a garder que la version 1 pour l'affichage du userform

ensuite
donc comme j'ai télécharger le fichier j'ai retravailler dessus

1° chirurgie esthétique (beau comme un camion) et (histoire qu'il soit présentable)
resize et alignement des controls
bordure ,couleur, font name (tout y a passé)
sans en faire trop c'est ça la classe d'un design beau mais epuré

2° ajout du module ExportToImageWithApiWMF3 Full api

3° reprise de mon code version 2 qui a été snobé par franky

4°ajout de la prise en charge du commentaire
avec redimenssionnement provisoire pour une capture plus nette

5° appelle a la fonc copyxlPicture de mon module pour créer l'image in memorio et injection dans le .picture du controls Image1

voilà

avant

Après

démo

Voila Mr😉

 

[Francky79]

Merci sylvanu et Patricktoulon,

Patricktoulon je me suis bien servi de ton code pour le mettre dans mon fichier final 👍.
Ce fichier me sert de brouillon mais vu le travail fait je vais faire une copie intégrale.
Et re merci 😀 pour le travail fourni sur ma dernière question, je vois ça lundi et je reviendrais vers toi si problèmes.

Bon weekend

 

[patricktoulon]

re
voila le fichier mille excuses je pensais l'avoir posé

 

[Francky79]

Pas de soucis et encore merci.