ByteScout Watermarking SDK – VBScript – Set Adjustments for Watermark on Image

Home
/
Articles
/
ByteScout Watermarking SDK – VBScript – Set Adjustments for Watermark on Image

printable version:
ByteScout-Watermarking-SDK-VBScript-Set-Adjustments-for-Watermark-on-Image.pdf

How to set adjustments for watermark on image in VBScript with ByteScout Watermarking SDK

The tutorial shows how to set adjustments for watermark on image in VBScript

The coding tutorials are designed to help you test the features without need to write your own code. ByteScout Watermarking SDK is the software development kit that helps to quickly implement adding of watermarks on top of PNG, JPG, BMP images as well as on multipaged TIFF files. You may select ready to use presets or create your own preset with semitransparent logo images, text lines with adjustable font size, family, color, rotation. It can be used to set adjustments for watermark on image using VBScript.

You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout Watermarking SDK for set adjustments for watermark on image below and use it in your application. This VBScript sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Code testing will allow the function to be tested and work properly with your data.

Download free trial version of ByteScout Watermarking SDK from our website with this and other source code samples for VBScript.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Adjustments.vbs

      ' Create Watermarker instance
Set watermarker = CreateObject("Bytescout.Watermarking.Watermarker")

' Initialize library
watermarker.InitLibrary "demo", "demo"

' Set input file name
Dim inputFilePath
inputFilePath = "..\sample_image.jpg"
' Set output file title
Dim outputFilePath
outputFilePath = "result.jpg"

' Add image to apply watermarks to
watermarker.AddInputFile_2 inputFilePath, outputFilePath

' Create new watermark
Set preset = CreateObject("Bytescout.Watermarking.Presets.SimpleText")

' Set watermark text
preset.Text = "Bytescout Watermarking"

' Set watermark font
Set font = CreateObject("Bytescout.Watermarking.WatermarkFont")
font.Name = "Arial"
font.Style = 1 ' Bold
font.SizeType = 1 ' Points
font.Size = 18
preset.Font = font

' Set watermark text color
preset.SetTextColor 255, 255, 255, 255 ' White color in ARGB values

' Create OutputOptions instance
Set outputOptions = CreateObject("Bytescout.Watermarking.OutputOptions")
' Set JPEG quality
outputOptions.Quality = 95
' Resize
outputOptions.Resize = True
outputOptions.ResizeType = 1 ' Percentage
outputOptions.ResizePercentage = 75 ' resize image to 75%
' Add effects
outputOptions.UseEffects = True
outputOptions.Effects = 2 Or 256 ' Sepia with light oil texture

waterMarker.OutputOptions = outputOptions

' Add watermark to watermarker
waterMarker.AddWatermark(preset)

' Apply watermarks
waterMarker.Execute()

' open generated image file in default image viewer installed in Windows
Set shell = CreateObject("WScript.Shell")
shell.Run outputFilePath, 1, false
Set shell = Nothing

' Cleanup
Set outputOptions = Nothing
Set font = Nothing
Set preset = Nothing
Set watermarker = Nothing