1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| Option Explicit
Sub Tst_Filigrane()
Dim pdf As Object, SNomFichier As String
'Public Function StampPDFFileWithImage( _
' sourceFilename As String, _
' destinationFilename As String, _
' imageFilename As String, _
' fromPage As Integer, _
' toPage As Integer, _
' overUnder As Boolean, _
' fillOpacity As Single, _
' blendMode As Integer _
') As Integer
' Blend mode
'1 Color burn
'2 Color dodge
'3 Color compatible
'4 Color darken
'5 Color difference
'6 Color exclusion
'7 Color hardlight
'8 Color lighten
'9 Color multiply
'10 Color normal
'11 Color overlay
'12 Color screen
'13 Color softlight
SNomFichier = ThisWorkbook.Path & "\" & "Snoopy.jpg"
Set pdf = CreateObject("pdfforge.pdf.pdf")
' L'image sera en arrière plan : overUnder = False
pdf.StampPDFFileWithImage "Document.pdf", "Document Snoopy.pdf", SNomFichier, 1, 1, False, 0.5, 10
Set pdf = Nothing
End Sub |
Partager