|
Here, we open a TIFF file using the Image object. We add the
entire image to the document and then just a portion of the image
using the Selection property.
Set theDoc = Server.CreateObject("ABCpdf13.Doc")
Set theImg = Server.CreateObject("ABCpdf13.Image")
theImg.SetFile "c:\mypics\mypic.tif"
theDoc.Rect = theImg.Selection
theDoc.Rect.Magnify 0.5, 0.5
theDoc.Rect.Position 100, 30
theDoc.AddImageObject theImg, False
theImg.Selection.Inset 100, 200
theDoc.Rect = theImg.Selection
theDoc.Rect.Position 170, 400
theDoc.AddImageObject theImg, False
theDoc.Save "c:\mypdfs\imageselect.pdf"

imageselect.pdf
|
|
|