Create new Presentation with Template attached using VBA

[Terry]

I have an Access 2003 database with a list of all Word, Excel and Powerpoint
templates with a brief description of each. When the user selects an item
either Word, Excel or Powerpoint is opened and a new
Doc/Workbook/Presentation created using the Template associated with the item
selected.

Word & Excel are under control but how do I create a new presentation from
PowerPoint with the correct Template attached please?

eg Something similar to the following works for Word & Excel but not
Powerpoint

Set appPPoint = New PowerPoint.Application
With appPPoint
.Presentations.Open Me.lstDocs.Column(1) 'This varies from Word
& Excel
.Visible = True
Set appPPoint = Nothing
End with
Thanks
Terry

 

[Shyam Pillai]

Terry,
You can use ActivePresentation.ApplyTemplate FileName:="C:\Program
Files\Microsoft Office 2003\Templates\Presentation Designs\Ocean.pot"
Also, these articles may also be useful:

Understanding Designs
http://skp.mvps.org/designs.htm

How to apply designs to various slides
http://skp.mvps.org/pptxp007.htm

How to copy designs from one presentation to another
http://skp.mvps.org/pptxp018.htm


Regards,
Shyam Pillai

Image Importer Wizard
http://skp.mvps.org/iiw.htm

 

[Terry]

Hello Shyam
Thank you for your comprehensive post.
I had tried the code you mention in:
Set appPPoint = New PowerPoint.Application
With appPPoint
.Presentations.Add
.Visible = True
.Activate
.ActivePresentation.ApplyTemplate strTemplate
etc

However this opens the new presentation, with the Template attached, but it
appears differently than manually creating a new presentation:
1. You receive a display asking you to click to add a new slide (does not
happen in manual creation)
2. On clicking one new slide is created as per slide one of the template
(Six are created in the manual creation) Subsequent example slides in the
template are not displayed
3. The Z order of the objects in the displayed first slide are in a
different order.

I will check through the links you have kindly added.
Many thanks
Terry
=======================================