Copier Image1 de l'USerForm dans Shape sur la feuille

[Hulk]

Hello tout le monde 🙂

Ben voilà un moment que je tourne pour essayer de coller l'image qu'il y a dans l'UserForm dans un Shape sur la feuille, en vain 😡

Un as pour m'aider ??

Merci d'avance !

 

[Hulk]

Re : Copier Image1 de l'USerForm dans Shape sur la feuille

Hello,

Petit up pour le cas ou...

 

[BOISGONTIER]

Re : Copier Image1 de l'USerForm dans Shape sur la feuille

Bonjour,

Peut être ça?

http://www.google.fr/url?sa=t&rct=j...oaSpcomAA&sig2=gWLgHrQyBWPGuWW-zIs4zA&cad=rja

JB

 

[Lone-wolf]

Re : Copier Image1 de l'USerForm dans Shape sur la feuille

Bonjour Boisgontier, Hulk,

je viens de faire un test sans uliliser la shape MaPhoto. Il faut rajouter On error Resume Next ici:

Private Sub Print_Screen()
    '- API print screen
    keybd_event VK_MENU, 0, 0, 0        ' Alt key down
    DoEvents
    keybd_event VK_SNAPSHOT, 0, 0, 0    ' PrintScreen key down
    DoEvents
    keybd_event VK_SNAPSHOT, 0, VK_KEYUP, 0
    DoEvents
    keybd_event VK_MENU, 0, VK_KEYUP, 0
    DoEvents
    '---------------------------------------------------------------
    '- paste picture to worksheet
   On Error Resume Next
    ActiveSheet.Paste Destination:=ActiveSheet.Range("A1")
    DoEvents
    Application.Wait Now + TimeValue("00:00:01")    ' WAIT 1 SECOND
End Sub

Pour eviter le message d'erreur.


A+ 😎

 

[Hulk]

Re : Copier Image1 de l'USerForm dans Shape sur la feuille

Re,

Merci M'sieur Boisgontier !

À toi aussi Wolf 😉

 

[Lone-wolf]

Re : Copier Image1 de l'USerForm dans Shape sur la feuille

Bonjour Hulk, Jacques

@ Hulk : il n'y a pas de quoi!
C'est bien le résultat que tu voulais obtenir??


A+ 😎