XL 2013 Copier une image depuis Userform pour insertion dans cellule

F

F_Lyaa

Guest
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
 
Solution
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
Bonjour
Pour mémoire et hors excel en bon langage français :
ça n'a même pas de sens ce que tu dis :rolleyes: :p ;) :rolleyes:
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

XLDnaute Barbatruc
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 ;)
 

Pièces jointes

  • Classeur1.xlsm
    839.2 KB · Affichages: 21

Discussions similaires

Statistiques des forums

Discussions
314 655
Messages
2 111 605
Membres
111 217
dernier inscrit
aladinkabeya2