Tilføje tekst /vandmærke på pdf /jpg vba

Det her shareware - PDF-ShellTools - kan gøre det med Dynamic text objects under PDF-Stamp/Watermark.

Glemte link

http://www.rttsoftware.com/shelltools.html

svar ?

OK

btw. man kan også med bullzipprinter lave det samme..

min kode (bare en test har ikke leget helt med den endnu)

Public Function LavVandmaerke(ByVal Pdffil_sti As String, ByVal vandTxt As String) As String
'husk at lave en reference til BullZip


'#### gemmer variabler #####
Dim myobject As New Bullzip.PDFPrinterSettings 'definerer objecket til printeren

Sheets("tom side").Select 'vælger en "tom side", dog med en hvid firkant på (ellers vil den ikke printe)

'see default settings in
'Environ ("HOMEDRIVE") & Environ("APPDATA") & "\Bullzip\PDF Printer\settings.ini"

' ############## Den gemte fil inkl vandmærke og synsfil
myobject.SetValue "output", Pdffil_sti



'######## Laver vandmærke ############### - se http://www.biopdf.com/guide/settings.php
myobject.SetValue "watermarktext", vandTxt 'teksten  skal ændres


myobject.SetValue "WatermarkVerticalPosition", "top"  'vertikal placering
myobject.SetValue "WatermarkHorizontalPosition", "right"  'h placering
myobject.SetValue "WatermarkVerticalAdjustment", "1" 'sætter den 1% længere ned på siden
myobject.SetValue "WatermarkHorizontalAdjustment", "10"
myobject.SetValue "WatermarkColor", "#000000" 'sort farve tekst
myobject.SetValue "WatermarkSize", "3"
myobject.SetValue "WatermarkRotation", "0"
myobject.SetValue "WatermarkOutlineWidth", "0"


' ########## Filen der skrives i "######################
myobject.SetValue "Superimpose", Pdffil_sti ' det er her at synsfilen skal stå


'####### settings til printeren ######################33
myobject.SetValue "SuperimposeLayer", "top" 'viser bare hvor den lave laget - sikkert ikke nødvendigt
' myobject.SetValue "MergeFile", "c:\temp\bullzipprint.pdf" 'adder en side til
myobject.SetValue "ShowPDF", "no" 'viser ikke PDF bagefter
myobject.SetValue "ShowSaveAS", "never" ' viser ikke save as
myobject.SetValue "ShowProgressFinished", "no"  'viser ikke ballontip
myobject.SetValue "showsettings", "never"
myobject.SetValue "ConfirmOverwrite", "no"
myobject.WriteSettings (True) 'writes the settings in a runonce.ini that it immediately deleted after being used.

'skifter den aktive printer
If InStr(ActivePrinter, "Bullzip") = 0 Then
Dim storeprinter$, PrinterChanged As Boolean
PrinterChanged = True
storeprinter = ActivePrinter
ActivePrinter = GetFullNetworkPrinterName("Bullzip") 'funktion for at finde den aktive bullzip fil
End If

ActiveSheet.PrintOut

If PrinterChanged Then ActivePrinter = storeprinter
End Function