UseForm et image

Version imprimable

26/05/2011, 13h53
pikameuh

UseForm et image

Bonjour à tous,

J'ai developpé un formulaire en VBA.
Maintenant je dois le doter de l'option suivante:

Le UseForm doit être capable de s'archiver sous un format visuel sans impression puis scan.

Ma question est donc comment puis-je faire un export du UseForm sous un format image (.jpg par exemple)

Merci de m'aider !
26/05/2011, 15h45
patricktoulon

heu!!!

bonjour pikameu

avant de poser une question tu devrais regarder la faq elle renferme plein de truc qui pourraient t'intérésser

regarde ici

tu a largement ta reponse

au plaisir
26/05/2011, 16h01
pikameuh

Merci de me répondre !

Cependant quand j'ai ecris :

Citation:

Le UseForm doit être capable de s'archiver sous un format visuel sans impression puis scan.

Je voulais dire par là, que l'archivage doit rester 100% numérique donc pas d'impression.

Je voudrais exporter un UseForm en .jpg ou .pdf

alors re regarde le lien que je t'ai donné et utilise juste la partie qui fait ce que tu demande

relis attentivement le code et tu comprendra!!!!!!

au plaisir

bonjour

je te propose ma solution preferé pour sauver l'image en jpeg a toi d'adapter le chemin et le nom de l'image

code a metre dans un module standard
j'avais fait ca l'année derniere pour je sais plus qui je l'ai retrouvé
je te le livre

tu appelle la macro ""cliché_de_l_userform"" quand tu veux a partir du momment ou l'userform est affiché
essai de comprendre le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long)
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function GetClipboardData& Lib "user32" (ByVal wFormat%)
Public Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Public Declare Function CloseClipboard& Lib "user32" ()
Public Declare Function CopyImage& Lib "user32" (ByVal handle&, ByVal un1&, ByVal n1&, ByVal n2&, ByVal un2&)
Public Declare Function IIDFromString Lib "ole32" (ByVal lpsz As String, ByRef lpiid As GUID) As Long
Public Declare Function OleCreatePictureIndirect Lib "olepro32" (pPictDesc As PICTDESC, ByRef riid As GUID, ByVal fOwn As Long, ByRef ppvObj As IPicture) As Long
 
Public Type GUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(8) As Byte
End Type
 
Public Type PICTDESC
  cbSize As Long
  picType As Long
  hImage As Long
End Type
 
Public iPic As IPicture
Public mode As Long
 
 
 
 
 
Sub cliché_de_l_userform()
 'Copie d'écran de la forme active
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
 
Dim hCopy&: OpenClipboard 0&
hCopy = CopyImage(GetClipboardData(2), 0, 0, 0, &H8)
CloseClipboard
If hCopy = 0 Then Exit Sub
Const IPictureIID = "{7BF80981-BF32-101A-8BBB-00AA00300CAB}"
Dim tIID As GUID, tPICTDEST As PICTDESC, Ret As Long
Ret = IIDFromString(StrConv(IPictureIID, vbUnicode), tIID)
If Ret Then Exit Sub
With tPICTDEST
.cbSize = Len(tPICTDEST)
.picType = 1
.hImage = hCopy
End With
Ret = OleCreatePictureIndirect(tPICTDEST, tIID, 1, iPic)
If Ret Then Exit Sub
 
SavePicture iPic, "C:\Users\Patrick\Desktop\" & "capture de l'userform.jpg"
Set iPic = Nothing
 
End Sub

ce code fonctionne parfaitement bien
au plaisir

26/05/2011, 18h46
kiki29

Salut,juste une remarque le jpg généré s'ouvre bien via la visionneuse Microsoft mais pas par exemple avec PhotoShop
26/05/2011, 19h59
patricktoulon

bonjour
je vais voir pourquoi mais apriori ca viens de chez toi

et voila je revien

je l'ai mis dans les contribs

j'ai ajouter la fenetre de dialog pour choisir la destination

c'est ici

voila

au plaisir
26/05/2011, 20h29
kiki29

Salut,c'était juste une remarque, le probleme restant entier avec PhotoShop avec le message d'erreur : Impossible d'ouvrir C:\....\USF.jpg en raison d'un marqueur JPEG inconnu ou incorrect
26/05/2011, 21h55
patricktoulon

re

il me viens une idée comme le clisd utilisé est a la base pour le format "bmp"
peut etre que sa viens de la

dans ce cas la sauve sous "*.bmp"

au plaisir
27/05/2011, 10h05
pikameuh

Bonjour,

Merci beaucoup !
Pourrais-tu comme même me renseigné comment ou avec quels variables puis-je dire à l'ordi que je veux sauvegarder tout le formulaire (plus grand que l'écran).
27/05/2011, 16h37
patricktoulon

re

bonjour

il ne suffit pas de copier coller un code il faudrais que tu essaie de le comprendre si ca avait été le cas tu n'aurais pas posé la question

le cliché prend la photo de l'userform tel qu'il est meme plus grand que l'ecran

au plaisir
30/05/2011, 09h50
pikameuh

Citation:

il ne suffit pas de copier coller un code il faudrais que tu essaie de le comprendre

Tu as tout a fais raison ! Cependant ce n'est pas trés facile de dépouiller un code non commenté.
30/05/2011, 13h42
patricktoulon

re

bonjour pikameuh

je viens de faire l'essai il semblerai que le cliché ne puisse pas etre plus grand que l'ecran j'ai repondu trop vite

il y a une possibilité serai d'avoir le userform a la taille de l'ecran
prendre le cliché
transféré le cliché sur un sheets
agrandir l'image
l'exporter

tu a ca dans la faq il me semble

pour les commentaire du code il me semble que je ne puisse pas faire plus
mais il est vrai que si tu debute ca peut parraitre un peu compliqué
bon courage
au plaisir