Mise en presse papier userform comme "Image"

[n3Twork]

Bonjour,

Je voudrai savoir si c'est possible de faire un petit bouton placé sur l'userform en question afin que sa le mette en presse papier afin de coller le userform dans une feuille excel par la suite sous forme d'image.

merci de votre aide.

 

[Temjeh]

Re:Mise en presse papier userform comme \"Image\"

Bonjour

Ici une réponse que j'ai déjà recu de Michel qui save l'userform en gif:

Lien supprimé

A+

Temjeh

Message édité par: temjeh, à: 21/06/2006 11:31

 

[Temjeh]

Rebonjour

Modification de son code pour le coller en A1:

Option Explicit

Private Declare Sub keybd_event Lib 'user32' ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub CommandButton1_Click()
'test WinXP & Excel2002
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents

Application.ScreenUpdating = True
Range('A1').Select
ActiveSheet.Paste

Selection.Name = 'Temp'

Application.ScreenUpdating = True

'-------------------------------------------------------------
'option pour les utilisateur de Windows XP :
'visualisation de l'image créée avec avec l'apercu images_telecopies Windows
'testé avec Excel2002 et WinXP

'ShellExecute 0, 'open', 'rundll32.exe', _
''C:\\WINDOWS\\System32\\shimgvw.dll,ImageView_Fullscreen ' & 'C:\\monImage.gif', 0, 1

End Sub

A+

Temjeh

 

[n3Twork]

Re:Mise en presse papier userform comme \"Image\"

Merci je regarde sa

Par contre ya t'il moyen de donné un nom a l'image tel que la valeur d'un textbox de l'userform ?

Message édité par: n3Twork, à: 21/06/2006 11:52

 

[n3Twork]

Re:Mise en presse papier userform comme \"Image\"

Merci sa marche nikel

Message édité par: n3Twork, à: 21/06/2006 12:00