Import a pdf as image in Excel using vba

[stelios]

Hi everyone. Iam using this code trying to add pdf in my sheet.My problem is that appears only the first page.Any ideas how to appear every page in pdf?
Thanks in advance

Sub insert_pdf_to_report()

Dim ol As OLEObject
Dim p As Page

Set ol = ActiveSheet.OLEObjects.Add(, "C:\Users\Stylianos\Desktop\cv .pdf")
    With ol
        .Left = ActiveSheet.Range("A1").Left
        .Height = ActiveSheet.Range("A1").Height
        .Width = ActiveSheet.Range("A1:i40").Width
        .Top = ActiveSheet.Range("A1").Top
        
    End With
End Sub