プレゼン　トラのアナ

Excelを新規作成した、PowerPointのスライド中の文字列を書き出します。

Sub pptoXl()
    Dim myAp    As Object
    Dim myXl
    Dim mySlide As Slide
    Dim myShape As Shape
    Dim i       As Long
    Set myAp = CreateObject("Excel.Application")
    Set myXl = myAp.Workbooks.Add
    myAp.Visible = True
    With ActivePresentation
        For Each mySlide In .Slides
            For Each myShape In mySlide.Shapes
                If myShape.HasTextFrame Then
                    i = i + 1
                    myXl.Worksheets(1).Cells(i, 1).Value = _
                    mySlide.Name
                    myXl.Worksheets(1).Cells(i, 2).Value = _
                    myShape.Name
                    myXl.Worksheets(1).Cells(i, 3).Value = _
                    myShape.TextFrame.TextRange.Text
                End If
            Next
        Next
    End With
End Sub