تحويل ملفات PDF إلى صور عن طريق الكود VBA Access

[walid7799]

السلام عليكم ورحمة الله وبركاته

الاساتذة الكبار وأصحاب الخبرة فى المنتدى الرائع أوفيسنا

جعله الله منارة للعلم

بحث كثيرا عن موديول أو كود جاهز على المنتديات المهتمة بالبرمجة واللغات عن كود لتحويل مجلد فى مدلد ODF ولكن فشلت من كثرة البحث

هل يمكن عمل مديول لتحويل مجلد PDf إلى صور مع تغيير الاسم وامسار

وشكراً لحسن تعاونكم مستقبلاً

[ابوخليل]

عثرت لك على هذا .. ولم اجربه

Sub SavePDFAsPng(sPathToPDF As String, sPathToPNG As String)

    Dim oPres As Presentation
    Dim oSh As Shape
    
    ' 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 = 612
    sngHeight = 792
    
    Set oPres = 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")
        End With
        .Saved = True
        .Close
        
    End With
    
    
End Sub

Sub TestSavePDFAsPng()

 Call SavePDFAsPng("C:\Temp\MyTest.pdf", "C:\Temp\MyTest.PNG")
End Sub

 

[Moosak]

3 ساعات مضت, ابوخليل said:

عثرت لك على هذا .. ولم اجربه

Sub SavePDFAsPng(sPathToPDF As String, sPathToPNG As String)

    Dim oPres As Presentation
    Dim oSh As Shape
    
    ' 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 = 612
    sngHeight = 792
    
    Set oPres = 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")
        End With
        .Saved = True
        .Close
        
    End With
    
    
End Sub

Sub TestSavePDFAsPng()

 Call SavePDFAsPng("C:\Temp\MyTest.pdf", "C:\Temp\MyTest.PNG")
End Sub

 

بعد البحث والتحري .. قمت بتجربة هذا الكود .. 

فظهر لي أنه مصمم لبرنامج الباوربوينت وليس للأكسس .. 

جربت إضافة مكتبة الباوربوينت للأكسس لكن لازالت رسالة الخطأ تظهر ..

وعندما نقلته للباوربويت اشتغل ولله الحمد .. ولكنه مصمم ليحفظ الصفحة الأولى من ملف ال PDF فقط 🙂