Rellenar Imágenes en un PDF editable con VBA

[andyboker]

Hola a todos, me gustaría saber si es posible mediante VBA , rellenar una campo imagen editable de un archivo PDF.
Consigo rellenar los de tipo texto y los desplegables sin problemas, pero no puedo rellenar las imágenes desde una ruta o desde un Control Image, las rutas de las imágenes están en las celdas, C53 y B75.

 

Sub ImprimirPDFeditable()
    
 
 Dim celdas() As Variant
 Dim i As Integer
 Dim nombrePDF As String, rutaPDF As String
 Dim HojaDatos As Worksheet, ParteTrabajo As Worksheet
 Dim Tabla As ListObject
  
 Application.ScreenUpdating = False
        
    Set HojaDatos = ThisWorkbook.Sheets("Registro")
    Set ParteTrabajo = ThisWorkbook.Sheets("Formulario")
    Set Tabla = HojaDatos.ListObjects("registrochat")
    

celdas = Array("E1", "E2", "E3", "C8", "E8", "D9", "D10", "A11", "B11", "C11", "B13", "D30", "D31", "F31", "C53", "B75")

 rutaPDF = "E:\PDFS\"
 nombrePDF = "orden trabajo"
 ThisWorkbook.FollowHyperlink rutaPDF & nombrePDF & ".pdf"

 Application.Wait Now + TimeValue("00:00:02")
 For i = LBound(celdas) To UBound(celdas)
     DoEvents
     SendKeys "{TAB}", True
     DoEvents
     ParteTrabajo.Range(celdas(i)).Copy
     DoEvents
     SendKeys "^v", True
     DoEvents
 Next
 Application.SendKeys ("{NUMLOCK}")
End Sub
 

Muchas gracias de antemano

[Abraham Valencia]

Hola. No es ideal usar SendKeys, pero bueno, para usar el objeto Adobe, necesariamente se tiene que tener Adobe Pro (De pago) y sé que no todos lo tienen. Yendo a tu dilema, comparte el archivo pdf para entender bien a qué tiempo de campo te refieres y encontrar alternativas para ti.