The following code snippet for ByteScout PDF Suite works best when you need to quickly use clipping for drawing in pdf with pdf sdk in your VBScript application. Just copy and paste the code into your VBScript application’s code and follow the instructions. If you want to use these VBScript sample examples in one or many applications then they can be used easily.
ByteScout PDF Suite free trial version is available on our website. VBScript and other programming languages are supported.
' This example demonstrates how to use the graphics clipping. ' Create Bytescout.PDF.Document object Set pdfDocument = CreateObject("Bytescout.PDF.Document") pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" Set comHelpers = pdfDocument.ComHelpers ' Add page Set page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4) pdfDocument.Pages.Add(page1) centerX = 200 centerY = 200 ' Create clipping path from circle Set clippingPath = comHelpers.CreatePath() clippingPath.AddCircle centerX, centerY, 100 page1.Canvas.SetClip(clippingPath) ' Paint Bytescout.PDF.Rectangle over the clipping circle. ' Only part of the Bytescout.PDF.Rectangle intersecting the clipping circle will be drawn. Set redBrush = comHelpers.CreateSolidBrush(comHelpers.CreateColorRGB(255, 0, 0)) page1.Canvas.DrawRectangle_2 (redBrush), centerX - 50, centerY - 50, 200, 200 ' Save document to file pdfDocument.Save("result.pdf") ' Open document in default PDF viewer app Set shell = CreateObject("WScript.Shell") shell.Run "result.pdf", 1, false