将MS Access"OLE Objects"转换回纯JPEG格式 - 最好的方法？

Sub ConvertOLEsToJPG()

  Dim oleobj As OLEObject
  Dim jpgImage As IPicture
  Dim olePicturePath As String
  Dim tempJPEGPath As String
  Dim i As Integer

  ' Loop through all the ole objects in the database
  For Each oleobj In CurrentProject.AllForms(0).Controls
     If TypeOf oleobj Is OLEObject Then
        ' Get the path to the OLE object picture
        olePicturePath = oleobj.Source

        ' Convert the OLE object to a JPEG image
        olePicturePath = Replace(olePicturePath, ".OLEO",".JPG")
        olePicturePath = Replace(olePicturePath, ".HLP","")
        Set jpgImage = CreateObject("jpeg.jpg")
        jpgImage.Src = olePicturePath

        ' Save the JPEG image to a temporary file in a hidden subfolder
        tempJPEGPath = ThisWorkbook.Path & "\temp\" & "ole_" & i & ".jpg"
        jpgImage.PictureType = 1
        jpgImage.Export tempJPEGPath
        i = i + 1
     End If
  Next oleobj

  ' Erase the subfolder if it exists
  Kill ThisWorkbook.Path & "\temp\"

  ' Delete the source OLE object pictures
  For i = 1 To ActiveWorkbook.Worksheets.Count
    ActiveWorkbook.Worksheets(i).OLEObjects("OLEPicture").Delete
  Next i

  Debug.Print "OLE Objects converted to JPEG: " & i & " files"
  Set jpgImage = Nothing
  Set oleobj = Nothing

End Sub