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ářů

Gcashbonus

(Stanleynew, 2. 6. 2023 9:34)

The online casino industry has witnessed a remarkable evolution over the years, and GcashBonus has emerged as a true game-changer in this dynamic landscape. With its innovative approach, unparalleled gaming offerings, and commitment to customer satisfaction, GcashBonus has redefined the way players experience online casino entertainment. In this article, we will explore the key factors that have contributed to the rise of GcashBonus as a leading platform, including its cutting-edge features, extensive game selection, and emphasis on creating a secure and immersive gaming environment.

Cutting-Edge Features for an Unforgettable Gaming Experience:

GcashBonus sets itself apart by leveraging cutting-edge features that take online casino gaming to new heights. The platform utilizes state-of-the-art technology, including high-definition graphics, seamless animations, and immersive sound effects, to create an engaging and realistic gaming environment. From the moment players enter the virtual casino, they are transported into a world of excitement and possibility, where every spin of the reels and every card dealt brings anticipation and thrill.

Extensive Game Selection to Cater to All Tastes:

One of the hallmarks of GcashBonus is its vast and diverse game selection, designed to cater to the preferences of every player. Whether you're a fan of classic table games like blackjack and roulette, or you prefer the adrenaline rush of slot machines, GcashBonus has it all. The platform partners with renowned software providers to offer a comprehensive portfolio of games, ensuring that players have access to the latest and most popular titles. With GcashBonus, there's never a shortage of options, allowing players to explore different games and find their favorites.

Creating a Secure and Fair Gaming Environment:

GcashBonus places a strong emphasis on player security and fair play. The platform employs advanced security measures, including encryption technology and strict privacy policies, to protect player information and transactions. GcashBonus also operates under regulatory frameworks, ensuring that players can enjoy a fair and transparent gaming experience. By prioritizing player safety and fairness, GcashBonus instills confidence in its users, allowing them to focus on the excitement and entertainment without any worries.

Generous Bonuses and Promotions to Enhance the Gameplay:

GcashBonus understands the importance of rewarding its players and adding extra value to their gaming experience. The platform offers an array of enticing bonuses and promotions, starting from the moment players sign up. These may include welcome bonuses, free spins, cashback offers, and exclusive tournaments. GcashBonus believes in keeping the excitement alive and providing ample opportunities for players to maximize their winnings. With its generous rewards program, GcashBonus ensures that players are consistently rewarded for their loyalty and dedication.

User-Friendly Interface for Seamless Navigation:

Navigating the GcashBonus platform is a breeze, thanks to its user-friendly interface. The platform has been designed with the player in mind, ensuring that every aspect, from registration to game selection and banking, is intuitive and effortless. Whether you're a novice or an experienced player, GcashBonus provides a smooth and streamlined user experience, allowing you to focus on the games and enjoy a hassle-free gaming session.

Conclusion:

GcashBonus has made a significant impact on the online casino industry, offering an innovative and immersive gaming experience that captivates players worldwide. With its cutting-edge features, extensive game selection, secure environment, and generous bonuses, GcashBonus has set a new standard for online casino entertainment. Embark on an unforgettable gaming journey with GcashBonus and discover the true meaning of excitement, rewards, and unrivaled entertainment in the world of online gambling.

Menu

Microsoft Excel & VBA