Ver originales (Francés)

Insertar un archivo PDF en una celda

soso69960 Mensajes publicados 2 Estado Miembro -  
soso69960 Mensajes publicados 2 Estado Miembro -
Hola, ¿sería posible insertar un PDF en una celda predeterminada (que hayamos escogido) mediante una macro?

Llego a insertar un PDF pero solo en la celda activa. Este es mi código:

Sub insertpdf()
fileToOpen = Application.GetOpenFilename("pdf Files (*.pdf), *.pdf")
If fileToOpen <> False Then
ActiveSheet.OLEObjects.Add(Filename:= fileToOpen, Link:=False, DisplayAsIcon:=False).Select
Selection.ShapeRange.ScaleWidth 0.54, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.4, msoFalse, msoScaleFromTopLeft
Else
MsgBox "pas de fichier selectionné"
End If

End Sub

Etant novice en VBA, je sollicito votre aide.

Configuration: Windows / Chrome 38.0.2125.104

2 respuestas

  1.
    redaiwa Mensajes publicados 370 Estado Miembro 119
     
    Salam soso69960.

    Creo que para posicionar tu objeto sobre la celda D5, por ejemplo, hay que añadir este código: 

     With Selection
     .Top = Range("D5").Top
     .Left = Range("D5").Left
     .Height = Range("D5").Height
     .Width = Range("D5").Width
     End With



    ¡A intentarlo! :)

    --
    "Repulsa el mal con el bien; y así aquel con quien tenías una enemistad se vuelve como un amigo cálido" (Corán)
    "Quien no sabe compartir está manco de sus emociones". (Marc Levy)
    0
  2. soso69960 Mensajes publicados 2 Estado Miembro
     
    Así que, he encontrado la solución, aquí está el código que funciona:

    Sub CommandButton2_Click()

    fileToOpen = Application.GetOpenFilename("pdf Files (*.pdf), *.pdf")
    If fileToOpen <> False Then
    Range("B369").Select
    ActiveSheet.OLEObjects.Add(Filename:=fileToOpen, Link:=False, DisplayAsIcon:=False).Select
    Else
    MsgBox "no se ha seleccionado ningún archivo"
    End If

    End Sub

    Y muchas gracias por tu tiempo redaiwa.
    0