XL 2019 Convertir pdf en image d'un dossier ou insertion images dans pdf

Salut, pour la conversion en PNG via XPDF 3.04, à adapter à ton contexte.
Conversion PDF en PNG via XPDF

XPDF 3.04 Téléchargeables ici ou là
xpdfbin-win-3.04 32 bits
xpdfbin-win-3.04 64 bits

cet utilitaire est à dézipper via 7Zip. Une copie de Pdftopng.exe est à placer à priori à la racine de l'utilitaire Pdf2Png.XLS. Dans la procédure Private Sub PDF2Png(ByVal sFichier) le chemin est par défaut
sCheminAppli = ThisWorkbook.Path & "\" & "pdftopng32.exe".
Pdftopng.exe a été renommé par commodité pdftopng32.exe ( pas vraiment utile )
A lire

kiki29 à dit:

Salut, pour la conversion en PNG via XPDF 3.04, à adapter à ton contexte.
Conversion PDF en PNG via XPDF

XPDF 3.04 Téléchargeables ici ou là
xpdfbin-win-3.04 32 bits
xpdfbin-win-3.04 64 bits

Cliquez pour agrandir...

Merci j'ai déjà essayé mais j n'arrive pas a utiliser la fct en macro... Comment lancer sur ta fonct private sub PDF2PNG ? as tu le fichier excel d'exemple correspondant ?

Et sinon j'ai cette fct qui marche pour powerpoint comment l'adapter pour excel ?

Sub SavePDFAsPng(sPathToPDF As String, sPathToPNG As String)
Dim MonPPT As New PowerPoint.Application
Dim oPres As Presentation


' Height/Width are hardcoded here
' You could get trickier and bring the PDF into any presentation
' once to get its proportions, delete it, set the slide size to the same
' proportions, then re-insert the PDF
Dim sngWidth As Single
Dim sngHeight As Single


sngWidth = 841.875
sngHeight = 595.25
Set MonPPT = CreateObject("PowerPoint.Application")
MonPPT.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
Set oPres = MonPPT.Presentations.Add
With oPres
With .PageSetup ' set it to 8.5x11
.SlideHeight = sngHeight ' 11in * 72 points per inch
.SlideWidth = sngWidth
End With
.Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
With .Slides(1)
Set oSh = .Shapes.AddOLEObject(0, 0, sngWidth, sngHeight, , sPathToPDF)
Call .Export(sPathToPNG, "PNG") '"PNG" pour ping, "JPG" pour jpeg, "BMP" ...
End With
.Saved = False
MonPPT.Quit
Set MonPPT = Nothing

End With


End Sub


Sub TestSavePDFAsPng()
Call SavePDFAsPng("NomFichierpdf.pdf", "NomFichierpng.png")
End Sub

Re, voir plus haut Post#2 avec Pdf2Png.zip qui contient Pdf2Png.xls et pdftopng.exe

Pardon pas réveillé ce matin... Je regarde ça

kiki29 à dit:

Re, voir plus haut Post#2 avec Pdf2Png.zip qui contient Pdf2Png.xls et pdftopng.exe

Cliquez pour agrandir...

j'aimerai tout convertir les pdf d'un dossier SANS BOITE DE DIALOGUE...
je peux faire un par un par exemple mais tout d'un coup ?


D'autre part la taille /résolution est configurable ? car la c'est vraiment petit... et les fichier png n'écrasent pas les anciens...

sinon en automatisant une impression pdf creator ? mais je ne sais pas faire... il y a un pdfjob je crois qui sert à cela ?

Re, pour les paramètres de pdftopng.exe voir dans le dossier Doc le fichier pdftopng.txt ( ici en PJ ), puis modifier la chaine Wsh.Run dans Pdf2Png.xls.