Microsoft 365 Insérer une image dans un usf ?

[BenHarber]

Bonjour et bonne année Le Forum !
Pour l'instant, je n'ai pas trouvé la réponse à mon pb sur internet, alors je me tourne vers vous.

Je recherche à insérer une image dans le contrôle "image" d'un userform.
La particularité est que l'image est stockée non pas sur un serveur, mais directement dans le fichier Excel où se trouve l'usf : cf. PJ.

Je suppose qu'il faut soit jouer sur la propriété "Picture" du contrôle image, soit écrire un code VBA à l'initialistion de l'usf : mais dans un cas comme dans l'autre, je ne sais pas quoi mettre ! 😭
Quelqu'un aurait-il une idée SVP ?

Merci d'avance pour vos idées et/ou vos suggestions souvent salvatrices ! 💡
BH

 

[jurassic pork]

est-ce que quelqu'un a le même phénomène que moi sur le chargement de l'image wmf ( bouton Affichage image emf dans USF) dans mon classeur de test ? je n'ai qu'un quart d'image :

et ceci sur Excel 2016 32 bits et Excel 2021 64 bits

 

[patricktoulon]

ah..... alors tu a un soucis ailleurs
pour être sur a tu essayé ma version wmf?
on procède par élimination
test d'abords le mien si c'est bon ca veut dire que c'est dans ta classe ou la librairie
au quel cas on décortiquera

 

[jurassic pork]

merci pat , j'ai le même phénomène avec ton classeur et toi tu ne l'as pas ? quelle version d'Excel ?
A noter que si je met le fichier original wmf dans la propriété picture du contrôle image du formulaire , l'image s'affiche en entier dans le contrôle image

 

[patricktoulon]

si le wmf créé avec ma macro entre bien dans le control alors c'est simple
tu a un sacré soucis avec stdtole le ipicture
vérifie que tu n'a pas ta librairie truc much d'enclenchée il faut tester avec l’installe basique
si c'est vraiment ça tu a un sacré problème à décanter dans ton module clipboard et tes librairie persos
mon truc chez moi fonctionne sur
office 2007 vb6
office 2013 vba7 32 bit
office 2016 vba 7 64 bits

cette fonction copyXlPicture et sa sœur pour la jpg ont été éprouvées sur moult versions et système différents W7 w10 w8 W 11 et aucuns soucis

 

[jurassic pork]

J'ai l'impression que cela vient du fichier d'origine , avec un autre fichier je n'ai pas le problème. Je viens de retrouver un vieux DVD avec pleins de cliparts en wmf et emf 8 bits 24 bits, je vais faire des essais complémentaires.
Bon avec un emf 24 bits et un wmf 24 bits cela fonctionne.

 

[patricktoulon]

tu veux dire qu'il ya trop de couleurs dans tes images c'est ça ?
et quel fichier d'origine ?

 

[jurassic pork]

non je ne sais pas exactement la cause j'ai fait des essais avec des 8 bits des 24 bits ils marchent tous
alors ce n'est plus la peine de chercher pourquoi celui d'origine ne fonctionnait pas chez moi.

 

[patricktoulon]

ok

 

[BenHarber]

Bonjour @jurassic pork, @patricktoulon, le Forum,
Merci pour votre contribution à ce post 👍

Demande complémentaire : est-il possible de transformer le curseur "flèche" en "main" lorsque la souris survole le contrôle image ? (vous l'aurez compris : un clic sur l'image lancera une macro...)

Et pour info, moi aussi, je n'ai qu'1/4 de la couronne qui s'affiche...

 

[jurassic pork]

hello,
il n' y a pas de curseur main dans les choix des curseurs pour un contrôle, mais en suivant
ce qui écrit ici voici à quoi on arrive :

propriétés à changer pour le contrôle image :
MousePointer -> fmMousePointerCustom
MouseIcon -> Hand Cursor.ico
Ami calmant, J.P

 

[Dranreb]

Bonjour
jouez sur la propriété MousePointer de l'Image.
Je l'agrémente souvent d'un curseur perso.

 

[BenHarber]

OK ! Merci pour cette astuce que je ne connaissais pas. 👍
Mais du coup, est-ce que le comportement sera le même pour un autre utilisateur qui ouvrira le fichier ? En effet, ce fichier est stocké sous Teams (sharepoint) car partagé par plusieurs membres : je suppose donc que le fichier hand.ico doit être enregistré sous un dossier accessible par tous les utilisateurs, non ?

 

[Dranreb]

Non, il m'a toujours semblé que le bitmap de l'image du curseur perso était enregistré au niveau des données constantes requises pour l'UserForm (j'espère qu'il détecte les identicités) ou pour le contrôle.

 

[jurassic pork]

Et d'ailleurs dans la propriété MouseIcon il n'y a pas de nom d'image qui est indiqué mais (Icône)

 

[patricktoulon]

Bonjour
un icon ".ani" ou autre n'est pas très grand on peut très bien l'enregistrer en binaire dans le classeur et a l'ouverture recréer le fichier ".ani" ou autre
voir aussi si il n'est pas possible de mettre l’icône en tant qu'object externe sur une feuille et le re balancer a la racine du chemin du classeur à l'ouverture

bref oui c'est possible de transporter son cursor perso