ByteScout Premium Suite – VB.NET – Insert images in pdf with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Insert images in pdf with pdf sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Insert-images-in-pdf-with-pdf-sdk.pdf

How to insert images in pdf with pdf sdk in VB.NET using ByteScout Premium Suite

If you want to learn more then this tutorial will show how to insert images in pdf with pdf sdk in VB.NET

The documentation is designed for a specific purpose to help you to apply the features on your side. ByteScout Premium Suite can insert images in pdf with pdf sdk. It can be applied from VB.NET. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

Want to save time? You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Premium Suite for insert images in pdf with pdf sdk below and use it in your application. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Further improvement of the code will make it more robust.

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)

Program.vb

      Imports Bytescout.PDF

''' <summary>
''' This example demonstrates how to add images of various formats. 
''' </summary>
Class Program

    Shared Sub Main()

        ' Create new document
        Dim pdfDocument = New Document()
        pdfDocument.RegistrationName = "demo"
		pdfDocument.RegistrationKey = "demo"
        ' Add page
        Dim page = New Page(PaperFormat.A4)
        pdfDocument.Pages.Add(page)

        Dim canvas = page.Canvas

        ' Add JPEG image and draw unscaled
        Dim image1 = New Image("Image1.jpg")
        canvas.DrawImage(image1, 20, 20)

        ' Add PNG image and draw reduced twice
        Dim image2 = New Image("Image2.png")
        canvas.DrawImage(image2, 20, 520, image2.Width / 2, image2.Height / 2)

        ' Add TIFF image and draw scaled disproportionately
        Dim image3 = New Image("Image3.tif")
        canvas.DrawImage(image3, 270, 520, image3.Width / 2, image3.Height / 4)

        ' Add GIF image and draw rotated 90 degrees and scaled
        Dim image4 = New Image("Image4.gif")
        canvas.TranslateTransform(390, 650)
        canvas.RotateTransform(90)
        canvas.DrawImage(image4, 0, 0, image4.Width / 4, image4.Height / 4)

        ' Save document to file
        pdfDocument.Save("result.pdf")

        ' Cleanup 
		pdfDocument.Dispose()

        ' Open document in default PDF viewer app
        Process.Start("result.pdf")

    End Sub

End Class