Microsoft 365 Insérer photo dans Userform

vgendron

XLDnaute Barbatruc

• 26 Janvier 2023

• #2

Bonjour
pour charger une image, je crois qu'il faut utiliser "LoadPicture"
après.. l'appareil photo excel. j'ignorais son existence jusqu'à il y a 2mn...

 

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 26 Janvier 2023

• #3

Bonjour vgendron,

Effectivement, je viens d'essayer ceci, mais rien erreur d'execution 9 : l'indice n'appartient pas à la selection

VB:

Private Sub UserForm_Activate()
    Me.Image1.Picture = LoadPicture(Sheets("Feuil1").Shapes.Range(Array("Picture 2")))
End Sub

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 26 Janvier 2023

• #4

une petite recherche google m'a amené à ce site..
va voir.. peut etre que ca te sera utile

loading a picture from spreadsheet into userform

Hi, I have few images in a sheet called 'Images'. Once the userform initializes, i want the 1st image (Picture 1) from the 'Images' sheet to be uploaded in the userform. I have written the below code. However getting error. Any help would eb appreciated Worksheets("Images").Select...

www.mrexcel.com

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 26 Janvier 2023

• #5

Bonjour
tu dois pouvoir t'inspirer de ce fichier
Appui bouton sur mes graphiques
UserformmGraphiques

 

Pièces jointes

• Cave a vins 20 lignes 20 colonnes.xlsm

  412.2 KB · Affichages: 15

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 26 Janvier 2023

• #6

Bonjour JM27,

Merci pour le fichier, je crois que tu vas répondre à d'autres questions en même temps
je vais étudier ça et je reviens vers vous pour le résultat.

Mais si quelqu'un a une idée, je suis preneur

 

Dernière édition: 26 Janvier 2023

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 26 Janvier 2023

• #7

JM27,

Malheureusement, je n'ai pas réussi à modifier ton code pour l'adapter à mon cas,
mais malgré cela, pour ce qui sont intéresser, je vous mets le lien d'une discussion qui pourrait vous aider, j'ai copié le lien brut et ça fonctionne, il ne me reste plus qu'à le décortiquer pour le simplifier (si possible)
https://forum.excel-pratique.com/excel/image-issue-de-l-appareil-photo-dans-un-userform-47551
Merci à vgendron et JM27 pour leur aide

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Janvier 2023

• #8

re
bonsoir
dans n'importe quel cas après click sur 'appareil photo il faut selectionner un endroit sur la feuille pour que la capture se colle en tant qu'image
il est donc question ici de copier une shape dans un control image de l'userform
j'ai une solution pas piquée des vert et ultra rapide que j'utilise depuis quelques années déjà
garantie instantané en WMF(tres leger en terme de poids par rapport a un bitmap
cette solution utilise des api
mais alors qui dit api dit declaration 32/64 tout le monde s'y perd
non moi j'utilise les api avec les macro4 sans déclaration et compatible 32/64

un petit exemple avec ma fonction magique
je pourrais copier directement la plage sans passer par l'appareil photo maos bon je suis resté dans ton idée

mais (il faut le dire)de ce fait comme l'appareil photo d'excel ne peut capturer que ce qu'il y a dans une feuille ma fonction magic rend cet outils obsolète
je peut copier une shape, un range, un chart ou quoi que ce soit d'autre dans un control image dans un userform sans passer par l'appareil photo

Cliquez pour agrandir...

le petit fichier en exemple qui va bien

 

Pièces jointes

• exemple capture to form image .xlsm

  23.3 KB · Affichages: 13

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 1 Février 2023

• #9

Bonjour,

Pardon de ne répondre que maintenant, mais des jours de congés, ça ne se refuse pas.

Merci pour votre fichier Patrick.

Ça fonctionne parfaitement et c'est plus simple, mais peut-on spécifier une image en particulier. si je mets par exemple plusieurs images de tableaux ou graphiques, peut-on les insérer individuellement.

Quand je vois ce code
FicTmp = ThisWorkbook.Path & "\image.wmf"
je ne vois pas comment l'individualiser pour 2 ou plus images. puisque si je ne me trompe pas (si c'est le cas corrigez moi), les images issue des photos n'ont pas de nom.

Le but étant de faire un dashboard dans l'userform, donc possibilité d'insérer plusieurs tableaux et/ou graphiques.

et venant de faire quelques essai, comment peut-on l'activer à l'ouverture de l'userform?

Encore merci

 

Dernière édition: 1 Février 2023

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Février 2023

• #10

bonjour
ben tu multiplie l’opération autant de fois que d'image a mettre dans le userform en variablisant le controls image de destination et la chose à copier
ma méthode est assez rapide
mais si j'avais un exemple de fichier avec les partie a copier et l'userform je te ferais un exemple

 

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 1 Février 2023

• #11

Je vous remets avec 2 tableaux à insérer.

ET comment peut-on les insérer dès l'ouverture de l'userform?

Je viens de faire des essais avec userform_initialize et activate, mais ça ne fonctionne pas

 

Pièces jointes

• exemple 1.xlsm

  30.8 KB · Affichages: 10

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Février 2023

• #12

fait le dans le activate

 

Vote positif 0 Vote négatif

Angus HEYERDAHL

XLDnaute Junior

• 1 Février 2023

• #13

Je viens de refaire des essais et ça fonctionne pour l'initialisation, j'avais fais une simple erreur Userform1 au lieu de userform

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Février 2023

• #14

bon ben voila tu a vu c'est simple quand tu a la petite fonction qui va bien

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Février 2023

• #15

re
si c'est résolu pour toi cloture ce post

 

Vote positif 0 Vote négatif