ByteScout Premium Suite – VBScript – Extract image coordinates by page from pdf with pdf extractor sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Extract image coordinates by page from pdf with pdf extractor sdk

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

How to extract image coordinates by page from pdf with pdf extractor sdk in VBScript and ByteScout Premium Suite

Step-by-step tutorial on how to extract image coordinates by page from pdf with pdf extractor sdk in VBScript

The sample source codes on this page shows how to extract image coordinates by page from pdf with pdf extractor sdk in VBScript. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording and you can use it to extract image coordinates by page from pdf with pdf extractor sdk with VBScript.

Want to quickly learn? This fast application programming interfaces of ByteScout Premium Suite for VBScript plus the guidelines and the code below will help you quickly learn how to extract image coordinates by page from pdf with pdf extractor sdk. IF you want to implement the functionality, just copy and paste this code for VBScript below into your code editor with your app, compile and run your application. This basic programming language sample code for VBScript will do the whole work for you to extract image coordinates by page from pdf with pdf extractor sdk.

ByteScout provides the free trial version of ByteScout Premium Suite along with the 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)

ExtractImagesCoordinatesByPages.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")

' Get page count
pageCount = extractor.GetPageCount()
        
' Extract images from each page
For i = 0 To pageCount - 1
    j = 0
    ' Initialize page images enumeration
    If extractor.GetFirstPageImage(i) Then
        Do
            outputFileName = "page" & i & "image" & j & ".png"
            ' display coordinates of the image
            MsgBox "Image #" & CStr(j) & " on page #" & CStr(i) & vbCRLF & "Coordinates: " & _
                CStr( extractor.GetCurrentImageRectangle_Left()) & ", " & CStr( extractor.GetCurrentImageRectangle_Top()) & ", " & _
                CStr( extractor.GetCurrentImageRectangle_Width()) & ", " & CStr( extractor.GetCurrentImageRectangle_Height())
            j = j + 1
        Loop While extractor.GetNextImage() ' Advance image enumeration
    End If
Next

Set extractor = Nothing