PDF thumbnails from VBA

I was asked to develop a form where user can see a pdf thumbnail of a pdf file. It was pretty far from what I have been developing so I decided to use "uncle" google to find a solution. There are some solutions but nothing what was expecting. You can use paid version of Adobe or free Adobe Acrobat ActiveX (Acropdf1) or some others free tools that can work along a pdf file. I tested only the free version of Acrobat ActiveX component and it was really nightmare. Then I found a C# project using the GhostScript tool for creating a pdf thumbnail. Unfortunatelly VBA cannot work with this project directly. Read more to find solution.

As I mentioned you can use the Acropdf1 activeX which is automatically installed with the Adobe Reader application.

Acropdf1.PNG, 35kB

How to add the Acropdf1 activeX on a VBA form

At the first time the activeX seemed to be a good solution but then I found two "bugs". The first one is more important than the second one. The activeX takes focus and never give it back and if you press the "TAB" key, then the whole application will crash. It's very known bug but Adobe cannot fix it for some reason. And the second bug rather behavior - of the activeX control is uncomfortable - it always takes focus and never give it back and also you don't have option to find out if a pdf document is fully loaded or not. My client was complaining about that for many times so I decided to find another solution.

I found code from Matthew Ephraim. where he uses a free tool Ghostscrip and .NETFramework 3.5 and C#. Form Visual Studio you can use his tool without any problems just include it into your project. Unfortunately we cannot use his dll directly from VBA. That was the reason why I took his code and made a little adjustment to expose methods from his project to the COM object.
Now - after registration the dll to your system - you can reference the dll as usually and use it !!! And it works great.

GhostScriptSharp_reference.PNG, 17kB

Who is interested how to create a C# dll that can work with VBA I attached the zip file with entire C# solution. Look at the Attachment section.
And who just want to use it as soon as possible, download the installer and install it. I also prepare a sample and you can find everything in the Attachment section.
The installer just check if your system contains the .NETFramework 4 and if not, it will suggest to download it and then register the dlls into your system.

Your code can look like this one
and then you can take the output file as an ordinary image file and load it - for example - to an image control.

Option Explicit
'********************************************************************************
'TestPDFThumbnailGeneration
'
' Purpose:  It uses reference to GhostscriptWrapper library.
'           From a pdf file creates a jpg file that represents a thumbnail of the pdf.
'           You can set page number and DPI quality.
'
' Inputs:   -none-
'
' Outputs:  -none-
'
' Created:  02/10/2011  Premysl Lazecky
'
' Modified: .
'
'********************************************************************************
Sub TestPDFThumbnailGeneration()

    Dim PDF             As GhostscriptWrapper
    Dim strPath         As String
    Dim strInputFile    As String

    strInputFile = "Test.pdf"
    strPath = ActiveWorkbook.Path
    If Right$(strPath, 1) <> Application.PathSeparator Then
       strPath = strPath & Application.PathSeparator
    End If

    Set PDF = New GhostscriptWrapper

    PDF.GeneratePDFThumb inputPath:=strPath & strInputFile, _
                         outputPath:=strPath & "Output.jpg", _
                         Page:=1, _
                         Width:=72, Height:=72


    Set PDF = Nothing

End Sub

As the result of this code you will get a jpg file called Output.jpg with thumbnail of defined page in the pdf file - in this case page 1 - with defined resolution.

Attachments

Installer and sample files
C# project

Komentáře

Přehled komentářů

jilibet ph

(Stanleynew, 5. 6. 2023 22:04)

In the fast-paced world of online gaming, Jilibet has emerged as a true pioneer, pushing boundaries and redefining the gaming landscape. With its innovative approach, captivating games, and a commitment to excellence, Jilibet offers an unmatched gaming experience that captivates players worldwide. Join us as we delve into the unique features and exciting offerings that make Jilibet a standout in the realm of online gaming.

A World of Endless Possibilities:
Jilibet opens the doors to a world of endless possibilities, where adventure and excitement await at every turn. From the moment you enter the platform, you'll be greeted by a visually stunning interface that immerses you in a realm of virtual splendor. Jilibet's intuitive design and seamless navigation ensure that every moment spent on the platform is focused on the exhilaration of the game.

Unleashing the Power of Bonuses and Rewards:
Prepare to be dazzled by Jilibet's irresistible bonuses and rewards. The platform believes in pampering its players from the get-go, offering a generous welcome bonus to kickstart your gaming journey. But the rewards don't stop there. Jilibet consistently surprises and delights its players with exciting promotions, cashbacks, and exclusive tournaments, enhancing the thrill of each gaming session and boosting your chances of hitting the jackpot.

Diverse and Captivating Game Selection:
Jilibet takes pride in its diverse collection of games, catering to every gaming preference and style. Whether you're a fan of classic slots, table games, live dealer experiences, or unique specialty games, Jilibet has something to keep you entertained. Immerse yourself in the world of cutting-edge slot games, where stunning visuals, immersive soundscapes, and engaging storylines transport you to new dimensions. Experience the excitement of live dealer games, where you can interact with professional dealers in real-time, adding an authentic touch to your gaming experience.

A Haven of Safety and Security:
Jilibet places utmost importance on providing a safe and secure gaming environment. Rigorous security measures, including advanced encryption technology, safeguard your personal and financial information, ensuring peace of mind while you play. Jilibet adheres to strict regulations and fair gaming practices, ensuring that every player has an equal opportunity to win. The platform's commitment to responsible gaming promotes a healthy gaming experience and offers tools for players to manage their gaming habits effectively.

The Jilibet Community and Customer Support:
Jilibet fosters a vibrant and supportive gaming community, where players from all walks of life come together to share their experiences and forge lasting connections. The platform also understands the value of exceptional customer support. Should you have any questions or encounter any issues, Jilibet's dedicated customer support team is available around the clock to provide timely assistance and ensure that your gaming journey remains seamless and enjoyable.

Conclusion:

Jilibet has set a new standard in the world of online gaming, offering a truly unique and exhilarating experience for players. With its captivating games, irresistible bonuses, and unwavering commitment to security and customer satisfaction, Jilibet continues to redefine what it means to be an exceptional online gaming platform. So, immerse yourself in the world of Jilibet, where endless excitement and extraordinary wins await. Get ready to elevate your gaming experience to new heights with Jilibet by your side.

Menu

Microsoft Excel & VBA