使用COM從PowerPoint中提取所有圖像

Question

如何使用COM以編程方式從PowerPoint文件中提取所有圖像？

Answer 1

好吧，有兩種方法。其中之一僅適用於PowerPoint 2007和2010。但是：

1. 這不是COM - 你只需打開 文件作爲一個zip並轉到/媒體 文件夾，然後您可以訪問 所有圖像。
2. 這些是原始圖像，不若 你施加任何影響他們 （如亮度/對比度，重新着色， 等）的PowerPoint呈現 圖像。

COM中的方式是通過折舊功能Shape.Export。爲了訪問它的Intellisense，你必須在VBE中選擇「顯示隱藏成員」（假設你正在使用VBA）。下面是使用它的代碼：

Sub SaveAllPictures() 
    Dim ap As Presentation: Set ap = ActivePresentation 
    Dim savePath As String 
    savePath = "C:\Users\me\Desktop\files\" 
    Dim i As Integer 
    Dim sl As Slide 
    Dim sh As Shape 
    For Each sl In ap.Slides 
     For Each sh In sl.Shapes 
      If sh.Type = msoPicture Then 
       sh.Export PathName:=savePath & sh.Name & CStr(i) & ".png", Filter:=ppShapeFormatPNG 
       i = i + 1 
      End If 
     Next 
    Next 
End Sub