Переменная vbCFBitmap Не определено

Question

Я использую MS-Access 2007 VBA.

Я пытаюсь преобразовать PDF в изображение. Я нашел этот кусок кода в Интернете, но они не смогли предоставить все ссылки. Моя компиляция не удалась на vbCFBitmap. Кто-нибудь знает, откуда эта ссылка?

             Dim MyAcro As New AcroApp
        Dim MyPDF  As New AcroPDDoc
        Dim MyPage As AcroPDPage
        Dim MyPt As acrobat.AcroPoint
        Dim MyRect As AcroRect
        Dim MyData As DataObject
        Dim strPathString As String
        Dim MyPath As String
        Dim SaveToPath As String
        Dim mysavepath As String
       MyPath = "\\spfs1\stone\Long Term Share\gentex_ppaps\gentex_ppaps_raw\Supplier Request Number 3034910, Gentex Part Number 345-2120-000 Revision (003).pdf"
       mysavepath = "C:\out"
        ' open the PDF
        MyPDF.Open (MyPath)
        Set MyPage = MyPDF.AcquirePage(0)
        ' Convert Point to Twips for document
        Set MyPt = New AcroPoint
        'Define the rectangle that contains the PDF form
        Set MyRect = New acrobat.AcroRect
            MyRect.Top = 0
            MyRect.Left = 0
            MyRect.Right = MyPt.x
            MyRect.bottom = MyPt.y
           ' Copy the PDF image to the clip board
        Call MyPage.CopyToClipboard(MyRect, MyRect.Left, MyRect.Top, 100)
        ' Capture image from clip board to data object
        Set MyData = Clipboard.GetData(vbCFBitmap)
        'Save the data object
        SavePicture MyData, mysavepath
        ' Clean up
        Set MyAcro = Nothing
        Set MyPDF = Nothing
        Set MyPage = Nothing
        Set MyPt = Nothing
        Set MyRect = Nothing
        Set MyData = Nothing

Answer 1

Вероятно, это код VB6, а не VBA.

vbCFBitmap является глобальной системой, и поэтому не импортируется с использованием каких-либо ссылок.

Однако это всего лишь копия Windows Стандартные форматы буфера обмена , поэтому vbCFBitmap равно 2. Вы можете использовать 2 вместо.