特定のページに埋め込まれた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 

EDIT： もう一度、私はここに考えて慎重に読んだ後は、コードが必要です：

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")