Saltar al contenido

Rellenar Imágenes en un PDF editable con VBA

publicado

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

Featured Replies

publicado

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.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.