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")
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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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