PDF en/of afbeelding plaatsen in excel met meerdere bladzijden

[Omteleren]

Vervolg op een topic wat was opgelost. Ik wil graag een .pdf inlezen in Excel, maar dan met meerdere bladzijden.
https://www.helpmij.nl/forum/showthread.php/959146-PDF-en-of-afbeelding-plaatsen-in-excel


Onderstaande code van snb werkt goed, alleen echter met 1 pagina. Zou je ook met meerdere pagina's kunnen inlezen in een Excel werkblad?

Sub M_snb()
With Application.FileDialog(1)
If .Show Then c00 = .SelectedItems(1)
End With

If c00 <> "" Then
With ActiveWorkbook.Sheets.Add(, Sheets(Sheets.Count))
If Right(c00, 3) = "pdf" Then .OLEObjects.Add(, c00, 0, 0, , , , Cells(1).Left, Cells(1).Top, 650, 500).Border.LineStyle = xlNone
If Right(c00, 3) <> "pdf" Then .Shapes.AddPicture c00, 0, 1, Cells(1).Left, Cells(1).Top, 350, 500
End With
End If
End Sub