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
