メモ20240224

パワポのデータテーブル（表）をエクセルに出力

https://www.relief.jp/docs/powerpoint-vba-export-tables-to-excel.html　　
からの引用

Sub ファイル内の表をExcelに出力する()
　Dim sld As Slide
　Dim shp As Shape
　Dim r As Long　'PowerPointの表の行番号
　Dim c As Long　'PowerPointの表の列番号
　Dim xl_app As Object
　Dim xl_wbk As Object
　Dim xl_row As Long　'Excelの出力先行番号
　Set xl_app = CreateObject("Excel.Application")
　xl_app.Visible = True
　Set xl_wbk = xl_app.Workbooks.Add

　xl_row = 1

　For Each sld In ActivePresentation.Slides
　For Each shp In sld.Shapes
　　If shp.HasTable Then
　　With shp.Table

　　　For r = 1 To .Rows.Count
　　　　For c = 1 To .Columns.Count
　　　　　xl_wbk.Worksheets(1).Cells(xl_row, c).Value = _
　　　　　　.Cell(r, c).Shape.TextFrame.TextRange
　　　　Next c
　　　　xl_row = xl_row + 1
　　　Next r
　　　xl_row = xl_row + 1

　　End With
　　End If
　Next shp
　Next sld

　Set xl_wbk = Nothing
　Set xl_app = Nothing
End Sub

’上記のマクロを実行すると、
’新規のExcelブックに、アクティブなプレゼンテーションファイル上の表がすべて出力されます。