XL 2013 Copier une image depuis Userform pour insertion dans cellule

F_Lyaa · 30 Septembre 2020

Bonjour,

Après quelques recherches, je ne trouve toujours pas de solution.
J'ai un formulaire contenant une image.
J'aimerai copier/coller cette image dans une cellule d'une feuille.

Si quelqu'un peut me donner quelques idées !

Merci par avance

patricktoulon · 30 Septembre 2020

bonjour
un exemple de base
methode1

VB:

chemin = Environ("userprofile") & "\DeskTop\imgtemp.jpg"
With UserForm1.Image1
SavePicture .Picture, chemin
Set pict = Sheets(1).Pictures.Insert(chemin)
pict.Width = .Width
pict.Top = Cells(2, 3).Top
pict.Left = Cells(2, 3).Left
End With
killchemin

methode2

VB:

 chemin = Environ("userprofile") & "\DeskTop\imgtemp.jpg"
    SavePicture UserForm1.Image1.Picture, chemin
    With Sheets(1)
        .Shapes.AddPicture chemin, False, True, Cells(2, 3).Left, Cells(2, 3).Left, UserForm1.Image1.Width, UserForm1.Image1.Height
    End With
kill chemin

patricktoulon · 3 Octobre 2020

ok
ben je trouve pas le code correspondant a cette action dans ton fichier
a aucun moment dans le code tu fait un savepicture (ou autre procédé)
donc tu utilise un chemin un path bien établi car tu fait au préalable un loadpicture pour (ton image de l'userform ) dans le code (et ça n'est pas ce qui a été demandé)
c'est pas la même chose !!!

herve62 · 4 Octobre 2020

Bonjour
Pour mémoire et hors excel en bon langage français :

patricktoulon à dit:
ça n'a même pas de sens ce que tu dis
je rappelle le titre de ta question
Copier une image depuis Userform pour insertion dans cellule

Si ce que je fais n'est pas ce qui est ce qui demandé ??? je vais aller apprendre le chinois !!!
Je garde en mémoire l'image (ph) de l'usf et avec "insere_image" je la recolle dans la cellule (ajustée) de mon choix
Enfin pour moi, quand je demande qq chose je m'intéresse au résultat peu importe la méthode
Bon dimanche !!

patricktoulon · 4 Octobre 2020

Bonjour Hervé62
ben oui le chinois alors
j'ai fouillé tout ton code de a à z
à aucun moment tu copie
tu load dans controls image garde le lien et insert dans le sheets avec ce lien
je le redis ça n'est pas ce qui a été demandé
tu dois considérer que le chemin (path) est inconnu de l'image dans le USF.controls(image) et pour cause une fois dans le controls c'est un bitmap le lien est perdu

ci joint un simple userform avec un control image avec une image dedans

il n'y a rien d'autre aucun code rien du tout
va y avec ton code!!!!! copie moi l'image sur la feuille ou tu veux

XL 2013 Copier une image depuis Userform pour insertion dans cellule

F_Lyaa

Guest

patricktoulon

patricktoulon

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Discussions similaires