PDF文件操作系列之八：向PDF文件添加图片

lss001

︿︿︿︿︿︿︿︿︿︿︿︿︿︿︿︿︿︿
运行代码前请安装：
相应软件
并在Vbe工具中引用：
相应对象

lss001

Sub InsertImages() '添加图片

    Dim pdfFile$, PDFoutputFile$, imageFile$
    Dim jso As Object, pageRect As Variant
    Dim pageField As Object, page As Long
    Dim fieldRect(0 To 3) As Double
   
    Set AcroApp = CreateObject("AcroExch.App")
    Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
    Set AcroPDDoc = CreateObject("AcroExch.PDDoc")
   
    pdfFile = ThisWorkbook.Path & "\num.pdf"
    imageFile = ThisWorkbook.Path & "\123.gif"
    PDFoutputFile = Replace(pdfFile, ".pdf", "newnum.pdf")

    If AcroAVDoc.Open(pdfFile, "") Then
        Set AcroPDDoc = AcroAVDoc.GetPDDoc()
        Set jso = AcroPDDoc.GetJSObject
        For page = 0 To AcroPDDoc.GetNumPages() - 1
            pageRect = jso.getPageBox("Crop", page)
            fieldRect(0) = 0
            fieldRect(1) = 135
            fieldRect(2) = 240
            fieldRect(3) = 0
            Set pageField = jso.addField( _
                "button" & page + 1, "button", page, fieldRect)
            pageField.buttonImportIcon imageFile
            pageField.buttonPosition = jso.Position.iconOnly
            pageField.ReadOnly = True
        Next
        AcroPDDoc.Save 1, PDFoutputFile
        AcroAVDoc.Close True
    End If
    Set AcroPDDoc = Nothing
    Set AcroAVDoc = Nothing
    Set AcrobatApp = Nothing

End Sub