Mise en presse papier userform comme "Image"

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

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

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

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

Merci sa marche nikel

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