Hello Ashish,
Thanks a lot its working fine may I know is there any materials to learn
macros based on powerpoint and msword.
Thanks in advance.
Regards,
Chandra Shekar B
On Fri, Oct 7, 2011 at 7:48 AM, Chandra Shekar <chandrashekarb....@gmail.com
> wrote:
> Hello Ashish,
>
> Thanks a lot its working fine may I know is there any materials to learn
> macros based on powerpoint and msword.
>
> Thanks in advance.
>
> Regards,
>
> Chandra Shekar B
>
> On Thu, Oct 6, 2011 at 2:59 PM, ashish koul <koul.ash...@gmail.com>wrote:
>
>> Sub create_ppts()
>> Dim slidecount As Integer
>> Dim slide As slide, PPSlide As slide
>> Dim shp As Shape
>> Dim ppres As Presentation, pp As Presentation
>>
>> Dim filepath As String
>> Dim a()
>> filepath = "c:\"
>>
>> a = Array("XA", "XB")
>>
>> Set pp = ActivePresentation
>> For i = LBound(a) To UBound(a)
>>
>> Set ppres = Application.Presentations.Add
>> slidecount = 1
>>
>> For Each slide In pp.Slides
>> If slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text =
>> a(i) Then
>>
>> slide.Copy
>>
>> ppres.Slides.Paste
>> End If
>>
>> Next
>>
>> 'save and close ur ppt here with name wise
>> Next i
>>
>> End Sub
>>
>>
>> On Thu, Oct 6, 2011 at 5:16 PM, Chandra Shekar <
>> chandrashekarb....@gmail.com> wrote:
>>
>>> Hello Ashish,
>>>
>>> In your code I need a small change as shown in attached file instead of
>>> taking search string in TITLE I need code to search as shown in attached
>>> image.
>>>
>>> Thanks in advance.
>>>
>>> Regards,
>>>
>>> Chandra Shekar B
>>>
>>>
>>> On Tue, Oct 4, 2011 at 4:43 PM, Chandra Shekar <
>>> chandrashekarb....@gmail.com> wrote:
>>>
>>>> Thanks Ashish its working fine :)
>>>>
>>>>
>>>> On Tue, Oct 4, 2011 at 9:36 AM, ashish koul <koul.ash...@gmail.com>wrote:
>>>>
>>>>> try something like this
>>>>>
>>>>> Sub create_ppts()
>>>>> Dim slidecount As Integer
>>>>> Dim slide As slide, PPSlide As slide
>>>>> Dim shp As Shape
>>>>> Dim ppres As Presentation, pp As Presentation
>>>>>
>>>>> Dim filepath As String
>>>>> Dim a()
>>>>> filepath = "c:\"
>>>>>
>>>>> a = Array("A", "B")
>>>>>
>>>>> Set pp = ActivePresentation
>>>>> For i = LBound(a) To UBound(a)
>>>>>
>>>>> Set ppres = Application.Presentations.Add
>>>>> slidecount = 1
>>>>>
>>>>> For Each slide In pp.Slides
>>>>> For Each shp In slide.Shapes
>>>>> If shp.TextFrame.TextRange.Text = a(i) Then
>>>>> slide.Copy
>>>>>
>>>>> ppres.Slides.Paste
>>>>> End If
>>>>> Next
>>>>> Next
>>>>>
>>>>> save and close ur ppt here with name wise
>>>>> Next i
>>>>>
>>>>> End Sub
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> On Tue, Oct 4, 2011 at 12:14 PM, Chandra Shekar <
>>>>> chandrashekarb....@gmail.com> wrote:
>>>>>
>>>>>> Hello,
>>>>>>
>>>>>> Any help on below request pls.
>>>>>>
>>>>>> Thanks,
>>>>>>
>>>>>> Chandra Shekar B
>>>>>>
>>>>>> On Mon, Oct 3, 2011 at 11:31 AM, Chandra Shekar <
>>>>>> chandrashekarb....@gmail.com> wrote:
>>>>>>
>>>>>>> Hello Swapnil,
>>>>>>>
>>>>>>> Thanks for the code, but I am not getting desired output bcoz its
>>>>>>> copying once one slide into the new presentation.
>>>>>>>
>>>>>>> Please find attached file for the exact output.
>>>>>>>
>>>>>>> Regards,
>>>>>>>
>>>>>>> Chandra Shekar B
>>>>>>>
>>>>>>> On Mon, Oct 3, 2011 at 9:21 AM, Swapnil Palande <
>>>>>>> palande.swapni...@gmail.com> wrote:
>>>>>>>
>>>>>>>> Hi,
>>>>>>>>
>>>>>>>> Use following code
>>>>>>>>
>>>>>>>> Sub createPPT()
>>>>>>>> Dim slide As slide
>>>>>>>> Dim shp As Shape
>>>>>>>> Dim mypresentation As Presentation
>>>>>>>> Dim filepath As String
>>>>>>>>
>>>>>>>> filepath = ActivePresentation.Path
>>>>>>>>
>>>>>>>> For Each slide In ActivePresentation.Slides
>>>>>>>> For Each shp In slide.Shapes
>>>>>>>> If shp.TextFrame.TextRange.Text = "XYZ 1" Then
>>>>>>>> Set mypresentation =
>>>>>>>> Application.Presentations.Add(msoTrue)
>>>>>>>> slide.Copy
>>>>>>>> mypresentation.Slides.Paste
>>>>>>>> mypresentation.SaveAs filepath & "\xyz1.pptx"
>>>>>>>> mypresentation.Close
>>>>>>>> ElseIf shp.TextFrame.TextRange.Text = "XYZ 2" Then
>>>>>>>> Set mypresentation =
>>>>>>>> Application.Presentations.Add(msoTrue)
>>>>>>>> slide.Copy
>>>>>>>> mypresentation.Slides.Paste
>>>>>>>> mypresentation.SaveAs filepath & "\xyz2.pptx"
>>>>>>>> mypresentation.Close
>>>>>>>> ElseIf shp.TextFrame.TextRange.Text = "XYZ 3" Then
>>>>>>>> Set mypresentation =
>>>>>>>> Application.Presentations.Add(msoTrue)
>>>>>>>> slide.Copy
>>>>>>>> mypresentation.Slides.Paste
>>>>>>>> mypresentation.SaveAs filepath & "\xyz3.pptx"
>>>>>>>> mypresentation.Close
>>>>>>>> End If
>>>>>>>> Next shp
>>>>>>>> Next
>>>>>>>>
>>>>>>>> Set mypresentation = Nothing
>>>>>>>> End Sub
>>>>>>>> Pls find attached ppt.
>>>>>>>>
>>>>>>>> Regards,
>>>>>>>>
>>>>>>>> Swapnil.
>>>>>>>>
>>>>>>>> On Mon, Oct 3, 2011 at 11:59 AM, Chandra Shekar <
>>>>>>>> chandrashekarb....@gmail.com> wrote:
>>>>>>>>
>>>>>>>>> Hello,
>>>>>>>>>
>>>>>>>>> Any help on this. Thanks in advance.
>>>>>>>>>
>>>>>>>>> Regards,
>>>>>>>>>
>>>>>>>>> Chandra Shekar B
>>>>>>>>>
>>>>>>>>> On Fri, Sep 30, 2011 at 8:47 AM, Chandra Shekar <
>>>>>>>>> chandrashekarb....@gmail.com> wrote:
>>>>>>>>>
>>>>>>>>>> Hello,
>>>>>>>>>>
>>>>>>>>>> I am looking for a macro which can copy slides based on TITLE and
>>>>>>>>>> create a new presentation. Could u please help me out in the
>>>>>>>>>> attached file.
>>>>>>>>>>
>>>>>>>>>> In this case I need create 4 PPTs i.e. for
>>>>>>>>>> 1) Title A one PPT with same file name as Title,
>>>>>>>>>> 2) Title B one PPT with same file name as Title,
>>>>>>>>>> 3) Title C one PPT with same file name as Title,
>>>>>>>>>> 4) Title D one PPt with same file name as Title.
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> Thanks,
>>>>>>>>>>
>>>>>>>>>> Chandra Shekar B
>>>>>>>>>>
>>>>>>>>>> --
>>>>>>>>>>
>>>>>>>>>> ----------------------------------------------------------------------------------
>>>>>>>>>> Some important links for excel users:
>>>>>>>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>>>>>>>> http://twitter.com/exceldailytip
>>>>>>>>>> 2. Join our LinkedIN group @
>>>>>>>>>> http://www.linkedin.com/groups?gid=1871310
>>>>>>>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>>>>>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>>>>>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>>>>>>>
>>>>>>>>>> To post to this group, send email to
>>>>>>>>>> excel-macros@googlegroups.com
>>>>>>>>>>
>>>>>>>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>>>>>>>> Like our page on facebook , Just follow below link
>>>>>>>>>> http://www.facebook.com/discussexcel
>>>>>>>>>>
>>>>>>>>>
>>>>>>>>> --
>>>>>>>>>
>>>>>>>>> ----------------------------------------------------------------------------------
>>>>>>>>> Some important links for excel users:
>>>>>>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>>>>>>> http://twitter.com/exceldailytip
>>>>>>>>> 2. Join our LinkedIN group @
>>>>>>>>> http://www.linkedin.com/groups?gid=1871310
>>>>>>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>>>>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>>>>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>>>>>>
>>>>>>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>>>>>>
>>>>>>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>>>>>>> Like our page on facebook , Just follow below link
>>>>>>>>> http://www.facebook.com/discussexcel
>>>>>>>>>
>>>>>>>>
>>>>>>>> --
>>>>>>>>
>>>>>>>> ----------------------------------------------------------------------------------
>>>>>>>> Some important links for excel users:
>>>>>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>>>>>> http://twitter.com/exceldailytip
>>>>>>>> 2. Join our LinkedIN group @
>>>>>>>> http://www.linkedin.com/groups?gid=1871310
>>>>>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>>>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>>>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>>>>>
>>>>>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>>>>>
>>>>>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>>>>>> Like our page on facebook , Just follow below link
>>>>>>>> http://www.facebook.com/discussexcel
>>>>>>>>
>>>>>>>
>>>>>>>
>>>>>> --
>>>>>>
>>>>>> ----------------------------------------------------------------------------------
>>>>>> Some important links for excel users:
>>>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>>>> http://twitter.com/exceldailytip
>>>>>> 2. Join our LinkedIN group @
>>>>>> http://www.linkedin.com/groups?gid=1871310
>>>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>>>
>>>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>>>
>>>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>>>> Like our page on facebook , Just follow below link
>>>>>> http://www.facebook.com/discussexcel
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> *Regards*
>>>>> * *
>>>>> *Ashish Koul*
>>>>> *http://www.excelvbamacros.com/*
>>>>>
>>>>>
>>>>> P Before printing, think about the environment.
>>>>>
>>>>>
>>>>> --
>>>>>
>>>>> ----------------------------------------------------------------------------------
>>>>> Some important links for excel users:
>>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>>> http://twitter.com/exceldailytip
>>>>> 2. Join our LinkedIN group @
>>>>> http://www.linkedin.com/groups?gid=1871310
>>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>>
>>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>>
>>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>>> Like our page on facebook , Just follow below link
>>>>> http://www.facebook.com/discussexcel
>>>>>
>>>>
>>>>
>>>
>>
>>
>> --
>> *Regards*
>> * *
>> *Ashish Koul*
>> *http://www.excelvbamacros.com/*
>>
>>
>> P Before printing, think about the environment.
>>
>>
>>
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
