Buenos días, me gustaría que me echarais un cable con una plantilla.

Necesito que en las celdas A1:B22, aparezca una previsualización de documentos pdf de una carpeta en concreto, dando la opción de que en las celdas A1:B1 se pueda cambiar entre los diferentes pdf de la carpeta, y en la A2:B2 se pueda escribir el nombre que quiero que el archivo previsualizado tenga, y así renombrarlo pulsando un botón de una macro.

A partir de la celda C1 querría seguir viendo los datos que tengo actualmente, sin que la previsualización me impida verlos. ¿Es posible esto? Muchas gracias!

Hola, he conseguido el previsualizador, pero me gustaría saber como ponerlo arriba a la izquierda del todo (en la celda a1) y que no se moviera si me muevo con la barra de desplazamiento. Tengo el código siguiente:

Dim RUTA As String

Private Sub UserForm_Initialize()

On Error GoTo Errores

Dim fName As String

archivo = Application.GetOpenFilename(Filefilter:=" Archivos PDF (*.pdf), *.pdf,", _

Title:="Seleccionar cualquier archivo .pdf o cancelar para ver el directorio actual")

If archivo = False Then

RUTA = ThisWorkbook.Path & "\" ' RUTA DONDE BUSCA LOS ARCHIVOS PARA EL LISTADO

Else

x = InStrRev(archivo, "\")

RUTA = Left(archivo, x)

End If

Me.Caption = "Archivos: " & RUTA & "*.pdf"

LV.ListItems.Clear

fName = Dir(RUTA)

Do While Len(fName) > 0

If fName Like "*" & ".pdf" Then Set SUBELEMENTO = LV.ListItems.Add(, , fName)

fName = Dir

Loop

Exit Sub

Errores:

MsgBox "initialize: " & Err.Number & Chr(13), 16, Title:=""

End Sub

Private Sub LV_DblClick()

On Error GoTo Errores

NOMBRE = LV.SelectedItem.Text

archivo = RUTA & NOMBRE

UserForm1.WEBB.Navigate archivo

Exit Sub

Errores:

MsgBox "initialize: " & Err.Number & Chr(13), 16, Title:=""

End Sub

Private Sub WEBB_StatusTextChange(ByVal Text As String)

End Sub

Muchas Gracias!!