Discussion :

[popi33370]

Bonjour,

Avec le code suivant (donné par l'un de vous) je peux insérer une jpg dans une feuille vierge (ici appelée "PDF") pour l'exporter en pdf A4 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sheets("PDF").Activate
    With Worksheets("PDF").PageSetup
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PaperSize = xlPaperA4
    End With
    [A1].Select
Set Img = ActiveSheet.Pictures.Insert(REPERTOIRE & JPG) 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=REPERTOIRE & FichPDF, _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False

Le PB c'est que souvent, pas à chaque fois, l'image est générée en pdf sur plusieurs pages A4 car elle déborde.

D'où ma question : selon la taille originale, si elle dépasse le format A4, est-il possible de la retailler (sans retailler les images plus petites), afin que le pdf généré soit conforme à la taille d'origine = si plus petite que A4 alors elle conserve sa proportion, si A4 ou plus alors elle est retaillée en A4 car c'est la limite maxi.

Merci d'avance pour votre aide

[Daniel.C]

Bonjour,

Essaie (je n'ai pas pu le faire faute d'image suffisamment grande) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Dim Img As Picture, Coeff As Single
Sheets("PDF").Activate
    With Worksheets("PDF").PageSetup
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PaperSize = xlPaperA4
    End With
    [A1].Select
Set Img = ActiveSheet.Pictures.Insert(REPERTOIRE & JPG)
With Img
    Coeff = .Height / .Width
    If Coeff > 1 Then
        If .Height > 5431 Then
            .Height = 5431
            .Width = .Width / Coeff
        End If
    Else
        If .Width > 3840 Then
            .Height = .Heigh * Coeff
            .Width = 3840
        End If
    End If
 
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=REPERTOIRE & FichPDF, _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False