Formulaire : image et impression

Version imprimable

19/04/2011, 12h35
pikameuh

Formulaire : image et impression

Bonjour à tous,

Je suis en train de develloper un formulaire VBA et j'aurais besion de pouvoir :

- Charger et Afficher une image dans le formulaire de manière dynamique (au bond vouloir de l'utilisateur). Pour l'instant j'ai une boite de dialogue pour parcourir les fichiers avec "GetOpenFilename". Mais je n'arrive pas a afficher l'image voulu dans le formulaire.

- Imprimer le formulaire (car il correspond au final à une fiche de saisie).

Dans l'éspoire d'une réponse rapide et clair.
19/04/2011, 12h41
mercatog

Bonjour
Pour la question 1, quel code tu utilise
Pour la 2, regarde ICI

Mon code actuel est :

' Macro pour ouvrir un fichier (charger une image) (non fonctionnel)

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub OuvertureDeFichiers()
    Dim OuvrirFichiers As Variant
 
 ' Afficher la boite de dialogue Ouvrir
    OuvrirFichiers = Application.GetOpenFilename(filefilter:="Image (*.bmp; *.jpg; *.png),*.htm;*.html;*.png", FilterIndex:=2, Title:="Ouverture de fichier", MultiSelect:=False)
 
       If OuvrirFichiers(1) = False Then Exit Sub
       FormBranchRenouvele.PicBox1.Picture = LoadPicture(OuvrirFichiers(1))
       FormBranchRenouvele.Repaint
 
End Sub

Comment tu fais l'appel de ta procédure? bouton de ton userform ou quoi?

sinon, pour le code

Code:

1
2
3
4
5
6
7
Dim OuvrirFichiers As Variant
 
' Afficher la boite de dialogue Ouvrir
OuvrirFichiers = Application.GetOpenFilename(filefilter:="Image (*.bmp; *.jpg; *.png),*.htm;*.html;*.png", FilterIndex:=2, Title:="Ouverture de fichier", MultiSelect:=False)
If OuvrirFichiers = False Then Exit Sub
FormBranchRenouvele.PicBox1.Picture = LoadPicture(OuvrirFichiers)
FormBranchRenouvele.Repaint

19/04/2011, 13h47
pikameuh

fusion 2 messages à suivre

mercatog merci déjà pour tes réponses !

J'utilise un bouton que j'ai nommer chargerImage qui appele la méthode.

Merci milles fois l'image s'affiche !!!

Mais saurais tu comment adapté l'image à la frame?

La proporiété PictureSizeMode, soit manuellement, soit par code ci-après

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub OuvertureDeFichiers()
Dim OuvrirFichiers As Variant
 
' Afficher la boite de dialogue Ouvrir
OuvrirFichiers = Application.GetOpenFilename(filefilter:="Image (*.bmp; *.jpg; *.png),*.htm;*.html;*.png", FilterIndex:=2, Title:="Ouverture de fichier", MultiSelect:=False)
If OuvrirFichiers = False Then Exit Sub
With FormBranchRenouvele
    With .PicBox1
        .Picture = LoadPicture(OuvrirFichiers)
        .PictureSizeMode = fmPictureSizeModeZoom
    End With
    .Repaint
End With
End Sub

19/04/2011, 14h28
pikameuh

Milles merci à toi!