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

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

printable version:
ByteScout-Data-Extraction-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 using ByteScout Data Extraction Suite

Learn to extract images coordinates from pdf with pdf extractor sdk in VBScript

Source code documentation samples give simple and easy method to install a needed feature into your application. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can be applied to extract images coordinates from pdf with pdf extractor sdk using VBScript.

These VBScript code samples for VBScript guide developers to speed up coding of the application when using ByteScout Data Extraction Suite. 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! If you want to use these VBScript sample examples in one or many applications then they can be used easily.

You can download free trial version of ByteScout Data Extraction Suite from our website to see and try many others source code samples for VBScript.

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