VBA PowerPoint:从PowerPoint中提取图形文本

Sub ExtractGraphicsAndText()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptSlide As Object
    Dim pptShape As Object
    Dim pptTextBox As Object
    
    ' 创建PowerPoint应用程序对象
    Set pptApp = CreateObject("PowerPoint.Application")
    
    ' 打开PowerPoint演示文稿
    Set pptPres = pptApp.Presentations.Open("C:\Path\to\presentation.pptx")
    
    ' 遍历每个幻灯片
    For Each pptSlide In pptPres.Slides
        ' 处理幻灯片中的每个形状
        For Each pptShape In pptSlide.Shapes
            ' 检查形状类型为图形
            If pptShape.Type = 13 Then
                ' 提取图形
                ' 处理图形的操作代码
            End If
        Next pptShape
        
        ' 处理幻灯片中的每个文本框
        For Each pptTextBox In pptSlide.Shapes
            ' 检查形状类型为文本框
            If pptTextBox.Type = 17 Then
                ' 提取文本
                ' 处理文本的操作代码
            End If
        Next pptTextBox
    Next pptSlide
    
    ' 关闭并退出PowerPoint应用程序
    pptPres.Close
    pptApp.Quit
    
    ' 释放对象引用
    Set pptTextBox = Nothing
    Set pptShape = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub