Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
importing powerpoint table to excel
how do i go about importing a table in powerpoint to excel?
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
importing powerpoint table to excel
I saw thgis posting on Saturday morning but had the macro stored on a
different computer. Here is the code. The code goes through each sheet in the power point file and gets each table. The tables are within shapes objects on each power point sheet. Sub GetSlides() FName = "c:\temp\test.ppt" Set obj = GetObject(FName) obj.Application.Visible = True Set ExcelSht = ThisWorkbook.Sheets(1) NewRow = 1 For Each slide In obj.Slides With slide.Shapes For i = 1 To .Count If .Item(i).HasTable Then Set MyTable = .Item(i).Table For Each MyRow In MyTable.Rows Col = 1 For Each MyCol In MyRow.Cells With ExcelSht Set DataCell = MyCol.Shape.TextFrame.TextRange .Cells(NewRow, Col) = DataCell.Text Col = Col + 1 End With Next MyCol NewRow = NewRow + 1 Next MyRow End If Next End With Next slide obj.Close Set obj = Nothing End Sub "Lynn" wrote: how do i go about importing a table in powerpoint to excel? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
what's the best way to convert a table in Excel to Powerpoint or WORDthen PDF? | Excel Discussion (Misc queries) | |||
what's the best way to convert a table in Excel to Powerpoint or WORDthen PDF? | Excel Programming | |||
Copy from Excel to a table in Powerpoint | Excel Programming | |||
When Copying Excel Table to Powerpoint | Excel Discussion (Misc queries) | |||
Importing Excel Object in Powerpoint | Excel Discussion (Misc queries) |