Ashish,
You have done something I did not think was possible. I'm very impressed
and I thank you for your time and effort.
Best regards,
Alpesh
On Tue, Jul 17, 2012 at 10:42 AM, ashish koul <koul.ash...@gmail.com> wrote:
> 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
>
>
>
--
--
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
