PDF文件操作系列之二：向PDF文件添加图片水印

lss001

…………………………………………


运行代码前请安装：
Acrobat-7.0-PRO或以上版本
并在Vbe工具中引用：
Adobe Acrobat 7.0 Type Library
AFormAut 1.0 Type Library

lss001

Sub JSOaddWatermarkFromFils() '添加图片水印
    Dim jso As Object, lRet As Long
     
    Set AcroApp = CreateObject("AcroExch.App")
    Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
    Set AcroPDDoc = CreateObject("AcroExch.PDDoc")
   
    oldpdf = ThisWorkbook.Path & "\Num.pdf"
    newpdf = ThisWorkbook.Path & "\newnum.pdf"
    giffile = ThisWorkbook.Path & "\123.gif"
   
    lRet = AcroApp.CloseAllDocs
    lRet = AcroPDDoc.Open(oldpdf)
    If lRet = False Then GoTo JSO_add:
   
    Set jso = AcroPDDoc.GetJSObject
    jso.addWatermarkFromFile giffile, 0, 0, 0
   
JSO_add:
    lRet = AcroPDDoc.Save( _
    1 + PDSaveLinearized + _
    PDSaveCollectGarbage, newpdf)
    lRet = AcroApp.Hide
    lRet = AcroApp.Exit
   
    Set jso = Nothing
    Set AcroPDDoc = Nothing
    Set AcroAVDoc = Nothing
    Set AcroApp = Nothing
End Sub

opiona

https://club.excelhome.net/threa ... tml?_dsign=86717d39

lss001

opiona 发表于 2024-7-10 12:29
https://club.excelhome.net/threa ... tml?_dsign=86717d39

谢谢回复