Previsualizar pdfs desde excel

[peskiupowa]

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!

[peskiupowa]

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!!