How to extract image coordinates from all images of a PDF file in VBScript using PDF Extractor SDK

The sample below will show how to extract image coordinates from all images of a PDF file by page in VBScript using PDF Extractor SDK.

Also, check this sample if you need to extract image coordinates from PDF by page.

' 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