insertion image jpg dans nouvelle feuille et imprim

jtitin · 13 Novembre 2006

amis(es) du soir bonsoir.

j'affiche dans un userform des images en fonction d'un filtre.
une partie du code pour afficher l'image dans l'userform est le suivant:

chemin = "C:\\\\\images\"
nom = Me.Label5.Caption
image = chemin & nom & ".jpg"
If Not Dir(image) = "" Then
Me.Image1.Picture = LoadPicture(image)
Else
Me.Image1.Picture = LoadPicture("C:\\\\\images\image defaut.jpg")
End If

partant de là je cherche à faire, par un clik sur l'image de l'userform, ajouter une nouvelle feuille dans le classeur et insérer cette image pour ensuite imprimer cette feuille au format paysage

Merci pour votre aide

jtitin · 13 Novembre 2006

Re : insertion image jpg dans nouvelle feuille et imprim

bonsoir forum

Personne pour me mètre sur le bon chemin ????

SVP Merci

jtitin · 14 Novembre 2006

Re : insertion image jpg dans nouvelle feuille et imprim

bonsoir à toutes et tous.

j'ai farfouiller dans tous le forum et toujours pas de réponse.
personne n'a une idée SVP

merci

MichelXld · 14 Novembre 2006

Re : insertion image jpg dans nouvelle feuille et imprim

bonsoir

J'espere que ces infos pourront t'aider

Code:

Option Explicit
 
Dim CheminFichier As String
 
Private Sub UserForm_Initialize()
    CheminFichier = "C:\monImage.gif"
    Me.Image1.Picture = LoadPicture(CheminFichier)
End Sub

Code:

'Evenement Click sur image
Private Sub Image1_Click()
    Dim Ws As Worksheet
 
    'Ajout feuille ( à la fin du classeur)
    Set Ws = ThisWorkbook.Worksheets.Add _
        (After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
 
    'insertion image
    Ws.Pictures.Insert(CheminFichier).Select
 
    'mise en page "paysage"
    Ws.PageSetup.Orientation = xlLandscape
    'Impression
    Ws.PrintOut
End Sub

Bonne soirée
MichelXld

jtitin · 14 Novembre 2006

Re : insertion image jpg dans nouvelle feuille et imprim

re bonsoir.

je dois avoir garder les lunettes de soleil...
cela fait une journée passée la dessus!!!
et voila j'ai trouvé.
Utiliser l'enregistreur de Macro c'est bien utile
pour éclaicir tout cela.

voila le résultat:

Dim chemin As String
Dim image As String
Dim nom As String

chemin = "C:\\\\\images\"
nom = Me.Label5.Caption
image = chemin & nom & ".jpg"
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = ("new")
Sheets("new").Select
Range("A1").Select
ActiveSheet.Pictures.Insert(image).Select

insertion image jpg dans nouvelle feuille et imprim

jtitin

XLDnaute Occasionnel

jtitin

XLDnaute Occasionnel

jtitin

XLDnaute Occasionnel

MichelXld

XLDnaute Barbatruc

jtitin

XLDnaute Occasionnel

Discussions similaires

insertion image jpg dans nouvelle feuille et imprim

jtitin

XLDnaute Occasionnel

jtitin

XLDnaute Occasionnel

jtitin

XLDnaute Occasionnel

MichelXld

XLDnaute Barbatruc

jtitin

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency