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

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

printable version:
ByteScout-PDF-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 PDF Suite

This code in VB.NET shows how to insert images in pdf with pdf sdk with this how to tutorial

The code displayed below will guide you to install an VB.NET app to insert images in pdf with pdf sdk. ByteScout PDF Suite: the set that includes 6 SDK products to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript. It can insert images in pdf with pdf sdk in VB.NET.

The SDK samples given below describe how to quickly make your application do insert images in pdf with pdf sdk in VB.NET with the help of ByteScout PDF Suite. Simply copy and paste in your VB.NET project or application you and then run your app! Enjoy writing a code with ready-to-use sample codes in VB.NET.

Trial version of ByteScout PDF Suite is available for free. Source code samples are included to help you with your VB.NET app.

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