ByteScout Premium Suite – VBScript – Extract images coordinates from pdf with pdf extractor sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Extract images coordinates from pdf with pdf extractor sdk

printable version:
ByteScout-Premium-Suite-VBScript-Extract-images-coordinates-from-pdf-with-pdf-extractor-sdk.pdf

How to extract images coordinates from pdf with pdf extractor sdk in VBScript with ByteScout Premium Suite

If you want to learn more then this tutorial will show how to extract images coordinates from pdf with pdf extractor sdk in VBScript

Sample source code below will display you how to manage a complex task like extract images coordinates from pdf with pdf extractor sdk in VBScript. ByteScout Premium Suite can extract images coordinates from pdf with pdf extractor sdk. It can be applied from VBScript. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

The following code snippet for ByteScout Premium Suite works best when you need to quickly extract images coordinates from pdf with pdf extractor sdk in your VBScript application. This VBScript sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Further improvement of the code will make it more robust.

ByteScout Premium Suite free trial version is available on our website. VBScript and other programming languages are supported.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

ExtractImageCoordinatesFromAllImages.vbs

      ' Create Bytescout.PDFExtractor.ImageExtractor object
Set extractor = CreateObject("Bytescout.PDFExtractor.ImageExtractor")
extractor.RegistrationName = "demo"
extractor.RegistrationKey = "demo"

' Load sample PDF document
extractor.LoadDocumentFromFile("..\..\sample1.pdf")

i = 0

' Initialize image enumeration
If extractor.GetFirstImage() Then
    Do
        ' display coordinates of the image
        MsgBox "Image #" & CStr(i) & vbCRLF & "Coordinates: " & CStr( extractor.GetCurrentImageRectangle_Left()) & ", " & _
            CStr( extractor.GetCurrentImageRectangle_Top()) & ", " & CStr( extractor.GetCurrentImageRectangle_Width()) & ", " & _
            CStr( extractor.GetCurrentImageRectangle_Height())
        i = i + 1
    Loop While extractor.GetNextImage() ' Advance image enumeration
End If

Set extractor = Nothing