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