打开嵌入式pdf到某个页面

Question

我已将PDF嵌入到我的工作簿中，我需要一个代码，可以将嵌入的PDF打开到某个页面。

PDF需要嵌入到工作表中，因为它必须在组织外部发送;我不想发送带有工作表和PDF的ZIP文件。

到目前为止，这是我打开嵌入式PDF的原因，目前此工作正常。

“对象2”是嵌入式PDF的名称。

 Sub Macro1()

    ActiveSheet.Shapes("Object 2").Select

    Selection.Verb Verb:=xlPrimary

 End Sub

如果有人可以帮助将PDF打开到特定的页面，那就太棒了。

Answer 1

怎么样：

Public Sub InsertPdf(PdfFileName As String)
Dim b As OLEObject

    Set b = ActiveSheet.OLEObjects.Add(fileName:=PdfFileName, Link:=False, DisplayAsIcon:=False)
    b.Left = 0
    b.Top = 0

End Sub

修改 仔细阅读后，我认为这里是您需要的代码：

Public Function OpenPdf(SheetName As String)
Dim ws As Worksheet
Dim shp As Shape

    Set ws = ActiveWorkbook.Sheets(SheetName)

    For Each shp In ws.Shapes
        If shp.Type = msoEmbeddedOLEObject Then
           shp.Select
           Selection.Verb Verb:=xlPrimary
           Exit For
        End If
    Next

End Function

用法：

OpenPdf("Sheet2")