PPT

PPT

Post by Chandra Sheka » Sat, 01 Oct 2011 15:47:04



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

  copyslides.pptx
52K Download
 
 
 

PPT

Post by Chandra Sheka » Tue, 04 Oct 2011 15:29:56


Hello,

Any help on this. Thanks in advance.

Regards,

Chandra Shekar B

On Fri, Sep 30, 2011 at 8:47 AM, Chandra Shekar <


> 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

> 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


> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel


 
 
 

PPT

Post by Swapnil Paland » Tue, 04 Oct 2011 16:21:11


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 <


> Hello,

> Any help on this. Thanks in advance.

> Regards,

> Chandra Shekar B

> On Fri, Sep 30, 2011 at 8:47 AM, Chandra Shekar <

>> 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

>> 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


>> <><><><><><><><><><><><><><><><><><><><><><>
>> 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

> 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


> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel

  Presentation1.pptm
50K Download
 
 
 

PPT

Post by Chandra Sheka » Tue, 04 Oct 2011 18:31:50


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



> 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 <

>> Hello,

>> Any help on this. Thanks in advance.

>> Regards,

>> Chandra Shekar B

>> On Fri, Sep 30, 2011 at 8:47 AM, Chandra Shekar <

>>> 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

>>> 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


>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> 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

>> 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


>> <><><><><><><><><><><><><><><><><><><><><><>
>> 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

> 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


> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel

  A_Outputshouldbe.pptx
45K Download

  copyslides.pptm
57K Download
 
 
 

PPT

Post by Chandra Sheka » Wed, 05 Oct 2011 15:44:04


Hello,

Any help on below request pls.

Thanks,

Chandra Shekar B

On Mon, Oct 3, 2011 at 11:31 AM, Chandra Shekar <


> 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 <

>> 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 <

>>> Hello,

>>> Any help on this. Thanks in advance.

>>> Regards,

>>> Chandra Shekar B

>>> On Fri, Sep 30, 2011 at 8:47 AM, Chandra Shekar <

>>>> 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

>>>> 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


>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>> 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

>>> 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


>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> 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

>> 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


>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel

 
 
 

PPT

Post by ashish kou » Wed, 05 Oct 2011 16:36:35


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.

 
 
 

PPT

Post by Chandra Sheka » Wed, 05 Oct 2011 23:43:03


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

 
 
 

1. Object model for PPT/Scheduler+

Forgive me for asking this question here. But I didn't know where else to post
it.

Can someone tell me where to find the object models for Powerpoint and
Scheduler+, both win95 and windows versions? I tried looking in the help file
for both of the programs and couldn't find it.

I found the object model for Excel and Access in the Excel help file.

Phil Haase

2. File protection and encryption

3. ppt files

4. Custom serialization

5. Who is a *.PPT file from Microsoft?

6. SendMail 8.8.8 compiling problem

7. Not allowed to edit Helvetica font in distilled PPT slide show using Acrobat?

8. Reading CDR discs

9. Cobverting doc, ppt or txt file on a central server

10. How convert .DOC and .PPT files together into single PDF???

11. mac ppt to PS to PDF???

12. Convert doc, xls, ppt, txt via Visual Basic to PDF Files