ByteScout PDF Extractor SDK – VBScript – Extract Images Coordinates from PDF

Home
/
Articles
/
ByteScout PDF Extractor SDK – VBScript – Extract Images Coordinates from PDF

printable version:
ByteScout-PDF-Extractor-SDK-VBScript-Extract-Images-Coordinates-from-PDF.pdf

How to extract images coordinates from PDF in VBScript using ByteScout PDF Extractor SDK

How to code in VBScript to extract images coordinates from PDF with this step-by-step tutorial

The sample source codes on this page shows how to extract images coordinates from PDF in VBScript. ByteScout PDF Extractor SDK: the SDK that helps developers to extract data from unstructured documents, pdf, images, scanned and electronic forms. Includes AI functions like automatic table detection, automatic table extraction and restructuring, text recognition and text restoration from pdf and scanned documents. Includes PDF to CSV, PDF to XML, PDF to JSON, PDF to searchable PDF functions as well as methods for low level data extraction. It can extract images coordinates from PDF in VBScript.

You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout PDF Extractor SDK for extract images coordinates from PDF below and use it in your application. In your VBScript project or application you may simply copy & paste the code and then run your app! This basic programming language sample code for VBScript will do the whole work for you to extract images coordinates from PDF.

Our website provides trial version of ByteScout PDF Extractor SDK for free. It also includes documentation and source code samples.

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