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.