in tools reference add Microsoft powerpoint
Sub import_textbox_text_ppt_excel()
' refrence select Microsoft powerpoint
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim Shp As Object
Set PPApp = New PowerPoint.Application
' row no
i = 3
PPApp.Visible = True
Set PPPres = PPApp.Presentations.Open("C:\Documents and Settings\user\My
Documents\Downloads\Powerpoint_Example (1).pptx")
j = 1
For Each Shp In PPPres.Slides(1).Shapes
If Shp.TextFrame.HasText Then
If j = 3 Then j = 4
Sheets(1).Cells(i, j).Value = Shp.TextFrame.TextRange.Text
j = j + 1
End If
Next
For Each Shp In PPPres.Slides(1).Shapes
If Shp.HasTable Then
j = 7
For k = 1 To Shp.Table.Columns.Count
Sheets(1).Cells(i, j).Value = Shp.Table.Cell(2,
k).Shape.TextFrame.TextRange.Text
j = j + 1
Next
End If
Next
PPPres.Close
PPApp.Quit
Set PPPres = Nothing
Set PPApp = Nothing
End Sub
On Mon, Jul 16, 2012 at 10:06 PM, pesh <alpes...@gmail.com> wrote:
> Thanks Ashish.
> Yes I have attached the sample powerpoint file that I would like the macro
> to copy and paste into the excel file.
> Thank you.
> Alpesh
>
>
>
>
> On Saturday, July 14, 2012 11:55:19 PM UTC-4, ashish wrote:
>>
>> Can you share ppt and outfile in excel
>> Sent on my BlackBerry® from Vodafone
>>
>> -----Original Message-----
>> From: alpes...@gmail.com
>> Sender: excel-macros@googlegroups.com
>> Date: Sat, 14 Jul 2012 20:53:50
>> To:
>> excel-macros@googlegroups.com<**excel-macros@googlegroups.com<excel-macros@googlegroups.com>>
>>
>> Reply-To: excel-macros@googlegroups.com
>> Subject: $$Excel-Macros$$ PowerPoint to excel
>>
>>
>> Dear excel experts,
>>
>> I am trying to create a macro that copies the data from a PowerPoint
>> slide and pastes it into an excel spreadsheet. Does anyone have such code
>> or a reference?
>>
>> Thank you.
>> Alpesh
>>
>> --
>> FORUM RULES (986+ members already BANNED for violation)
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>>
>> 2) Don't post a question in the thread of another member.
>>
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>>
>> 4) Acknowledge the responses you receive, good or bad.
>>
>> 5) Cross-promotion of, or links to, forums competitive to this forum in
>> signatures are prohibited.
>>
>> NOTE : Don't ever post personal or confidential data in a workbook.
>> Forum owners and members are not responsible for any loss.
>>
>> ------------------------------**------------------------------**
>> ------------------------------**------------
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> To unsubscribe, send a blank email to excel-macros+unsubscribe@**
>> googlegroups.com <excel-macros%2bunsubscr...@googlegroups.com>
>
> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>
> To unsubscribe, send a blank email to
> excel-macros+unsubscr...@googlegroups.com
>
--
*Regards*
* *
*Ashish Koul*
*Visit*
*http://www.excelvbamacros.com/*
*http://www.accessvbamacros.com/*
P Before printing, think about the environment.
--
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
