|
Post by 4cereconsniper on Jun 2, 2005 23:38:11 GMT -5
How can I make the text stamp of the image edit control left or right justified?
for your reference this is my code
Private Sub StamperMaster(strtifftostamp As String, strstamptext As String) On Error Resume Next Dim intOldheight As Integer imgEdit.Image = strtifftostamp imgEdit.Display imgEdit.Refresh 'image extend imgEdit.ClipboardCopy 0, 0, imgEdit.ImageWidth, imgEdit.ImageHeight intOldheight = imgEdit.ImageHeight imgEdit.DisplayBlankImage imgEdit.ImageWidth, imgEdit.ImageHeight + 200, imgEdit.ImageResolutionX, imgEdit.ImageResolutionY, imgEdit.PageType imgEdit.ClipboardPaste 0, 0 'stamping preparation imgEdit.AnnotationType = wiTextStamp imgEdit.AnnotationStampText = strstamptext imgEdit.AnnotationFont.Size = 8 imgEdit.AnnotationFont.Bold = True imgEdit.Draw imgEdit.ImageWidth - 1500, imgEdit.ImageHeight - 200 imgEdit.ExecuteTextEditCommand (wiPasteEditText) imgEdit.BurnInAnnotations 1, 2 'overwrites during save imgEdit.SaveAs strtifftostamp DoEvents End Sub
|
|