创建特定PDF页面的对象

Question

我正在尝试使用此代码创建PDF的对象图像，但它只是创建pdf的第一页，我也需要为其他页面创建一个对象。你们可以帮我吗？

sFileName = "R:\TL - Comando de Montagem - Relatorios Internos\Raio X\Raio X - Grafico - " & Dara
 'MsgBox sFileName
 Set oSl = ActivePresentation.Slides(1)
 Set oSh = oSl.Shapes.AddOLEObject(Left:=0, _
     Top:=0, _
     Width:=14# * 72, _
     Height:=7.5 * 72, _
     FileName:=sFileName, _
     Link:=msoFalse)

结束子