将功率点（ppt）文件转换为图像

  • Z时代
  • 2024-01-10
  • 分类：问答

我目前正在尝试将PowerPoint幻灯片转换为可以在我的应用程序中使用的图像的自动化方法。我倒有使用PowerPoint播放插件的方法：将功率点（ppt）文件转换为图像

Private Function convert_slide(ByVal targetfile As String, ByVal imagepath As String, ByVal slide_index As Integer) 
    Dim pptapplication As New Microsoft.Office.Interop.PowerPoint.Application 
    Dim prsPres As Microsoft.Office.Interop.PowerPoint.Presentation = pptapplication.Presentations.Open(targetFile, True, False, False) 
    prsPres.Slides(slide_index).Export(imagepath, "jpg", 0, 0) 
    prsPres.Close() 
    pptapplication.Quit() 
    System.Runtime.InteropServices.Marshal.FinalReleaseComObject(prsPres) 
    System.Runtime.InteropServices.Marshal.FinalReleaseComObject(pptapplication) 
    Return Image.FromFile(imagepath) 
End Function

现在这个工程的一个文件，但如果我尝试运行函数再次它说，目标路径正在使用中。看起来，电源点正在锁定文件。我不想在每次运行时更改文件名。我想每次重用该临时文件。任何想法如何使文件不被锁定？

回答：

这是一个COM对象。你需要处置它。

Private Function convert_slide(ByVal targetfile As String, ByVal imagepath As String, ByVal slide_index As Integer) As Image 
    Dim pptapplication As New Microsoft.Office.Interop.PowerPoint.Application 
    Dim prsPres As Microsoft.Office.Interop.PowerPoint.Presentation = pptapplication.Presentations.Open(targetFile, True, False, False) 
    prsPres.Slides(slide_index).Export(imagepath, "jpg", 0, 0) 
    prsPres.Close() 
    pptapplication.Quit() 
    Microsoft.Office.InteropMarshal.FinalReleaseComObject(prsPres) 
    Microsoft.Office.InteropMarshal.FinalReleaseComObject(pptapplication) 
    Return Image.FromFile(imagepath) 
End Function

以上是 将功率点（ppt）文件转换为图像 的全部内容， 来源链接： utcz.com/qa/266161.html

回到顶部