Qualité d'un fichier pdf collé sur Excel

Bonjour,

Je suis nouvelle sur se site. Depuis l'année dernière grâce à ce forum j'ai découvert les macros et je l'utilise de mieux en mieux. Merci à vous !

Aujourd'hui, j'ai un problème sur ma macro : qui va me proposer d'aller chercher un fichier pdf pour le coller sur ma page excel.

Le problème c'est la qualité de l'image qui n'est pas lisible.

Voici ma macro :

Sub CommandButton1_Click()

fileToOpen = Application.GetOpenFilename("pdf Files (*.pdf), *.pdf")

If fileToOpen <> False Then

ActiveSheet.OLEObjects.Add(Filename:=fileToOpen, Link:=False, DisplayAsIcon:=False).Select

Selection.ShapeRange.ScaleWidth 1, msoFalse, msoScaleFromTopLeft

Selection.ShapeRange.ScaleHeight 1, msoFalse, msoScaleFromTopLeft

Selection.ShapeRange.Left = 1.5

Selection.ShapeRange.Top = 1.5

Else

MsgBox "pas de fichier selectionné"

End If

End Sub

Merci de vos lumières pour m'aider à avancer sur le sujet .....