將功率點（ppt）文件轉換爲圖像

Question

我目前正在嘗試將PowerPoint幻燈片轉換爲可以在我的應用程序中使用的圖像的自動化方法。我倒有使用PowerPoint播放插件的方法：

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 

現在這個工程的一個文件，但如果我嘗試運行函數再次它說，目標路徑正在使用中。看起來，電源點正在鎖定文件。我不想在每次運行時更改文件名。我想每次重用該臨時文件。任何想法如何使文件不被鎖定？

Answer 1

這是一個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