使用 COM 从 PowerPoint 中提取所有图像

Question

如何使用 COM 以编程方式从 PowerPoint 文件中提取所有图像？

Answer 1

嗯，有两种方法。其中之一仅适用于 PowerPoint 2007 和 2010。但是：

1. 这不是 COM - 您只需打开 压缩文件并转到 /media 文件夹，然后您可以访问 所有图片。
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