将嵌入式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")