Discussion :

[Salmiok]

Bonjour,

Pour commencer, merci de votre aide / idée sur ma demande.
J'ai essayé sans grande réussite à faire ce que j'ai besoin aujourd'hui.

Mon besoin est le suivant :
Avoir un programme (macro), qui me permet d'ouvrir un fichier PDF et de faire une capture sur une partie de ce PDF (toujours au même endroit milieu bas à droite), de sorte à avoir une image qui sera directement dans un fichier powerpoint.
Soit :
Ouverture de fichier
Scan d'une zone (toujours la même)
Création d'une image (jpeg ou autre)
Import dans un Powerpoint

Votre aide est la bienvenue !

[jerome.vaussenat]

Salut,

peut être que ce forum sera plus adapté à ta demande.

Ici on parle surtout d'Excel. Pas de PowerPoint. D'où le manque de réponse ...

https://www.developpez.net/forums/f5...ce/powerpoint/

[kiki29]

Salut, voir ici pour la conversion PDF en PNG, puis qqch comme ceci ( à adapter ) pour le rognage.
Il y a aussi : Utiliser la librairie Windows Image Acquisition en VBA

[Salmiok]

Hello,


Je me doutais que ce n'était pas le meilleur endroit pour ce genre de question, mais comme cela mélange de l'utilisation d'Excel (VB) et de diverses applications...

Quoiqu'il en soit, merci pour vos retours.

[kiki29]

Salut, une version pour du Bitmap, il faut avoir l'image d'importée et sélectionnée dans Excel puis lancer la macro Crop_Bitmap

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit
 
Sub Crop_Bitmap()
Dim PourcentageL As Long, PourcentageT As Long
Dim PourcentageR As Long, PourcentageB As Long
Dim shapeToCrop As Object
Dim origWidth As Long, origHeight As Long
Dim cropPointsL As Long, cropPointsT As Long
Dim cropPointsR As Long, cropPointsB As Long
 
    PourcentageL = 25
    PourcentageT = 25
    PourcentageR = 25
    PourcentageB = 25
 
    Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
    With shapeToCrop.Duplicate
        .ScaleWidth 1, True
        origWidth = .Width
        origHeight = .Height
        .Delete
    End With
 
    cropPointsL = origWidth * PourcentageL / 100
    cropPointsT = origHeight * PourcentageT / 100
    cropPointsB = origHeight * PourcentageB / 100
    cropPointsR = origWidth * PourcentageR / 100
 
    With shapeToCrop.PictureFormat
        .CropLeft = cropPointsL
        .CropTop = cropPointsT
        .CropBottom = cropPointsB
        .CropRight = cropPointsR
    End With
End Sub
 
Sub Annuler_Crop_Bitmap()
Dim shapeToCrop As Object
 
    Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
 
    With shapeToCrop.PictureFormat
        .CropLeft = 0
        .CropTop = 0
        .CropBottom = 0
        .CropRight = 0
    End With
End Sub

[kiki29]

Salut, pour un rognage d'une page x d'un PDF voir ici

Il te faudra Acrobat ( pas le Reader )

[Menhir]

Je me doutais que ce n'était pas le meilleur endroit pour ce genre de question, mais comme cela mélange de l'utilisation d'Excel (VB) et de diverses applications...

Vu que ça se passe entre un reader PDF et PowerPoint, je ne vois pas ce que Excel vient faire là dedans.
A moins que tu ne te sois pas rendu compte que PowerPoint aussi dispose de VBA.