PPT: Slide.Export strPath

[Petrus Canisius]

Hello!

Since a few days doing an export in VBA/PPT with

Slide.Export strPath

I loose the unused Master-Templates.
I have a iuf.pot with 7 Master-Templates (14 Slides) and if a separate a
presentation with vba only two master templates a saved with a single slide.

Is there a switch or GPO where I can switch this option?

Peter

 

[Steve Rindsberg]

Since a few days doing an export in VBA/PPT with

Slide.Export strPath

I loose the unused Master-Templates.
I have a iuf.pot with 7 Master-Templates (14 Slides) and if a separate a
presentation with vba only two master templates a saved with a single slide.

Let's look at it the other way around: how will you use this exported slide
and why does the presentation need to include masters that aren't used?

I'm not suggesting that it doesn't, I'm trying to understand the problem.

What if you save it as a POT instead?

 

[Petrus Canisius]

OK, short info on my algorithm:

1. We have a .pot as PPT template with ALL templates needed for different
purposes, like student lecture, handout etc.

2. Users prepare presentations on the template and each prepared slide is
saved in our intranet into SQL-Server 2k as a separated ppt-file with ONE
slide.

3. We have a few processes (server based) which interact on our database to
produce hand out, e-learning material etc. The processes switch between
different templates for different kinds of output.

Problem:
In last year ALL templates are saved within the single PPT-file in SQL
server, now I only have the used templates saved. So I have to reconfigure
the production processes to "clone" the last templates.

I try to understand what changed!?

Peter

 

[Steve Rindsberg]

I was thinking that setting each Design to Preserved=True would do the trick but
evidently not. It seems to prevent PPT from arbitrarily deleting unused masters
but doesn't help with exported slides.

However if you set each Design to preserved, when you save the presentation, even
unused designs are preserved, so you could:

For x = 1 to ActivePresentation.Designs.Count
ActivePresentation.Designs(x).Preserved = True
Next x

ActivePresentation.SaveCopyAs sFilename
' open the copy
' delete all but the needed slides
' save it again

One thing you probably could do is add

 

[Petrus Canisius]

Thank you!
That's what I did last night!
It Worked!

Peter

 

[Steve Rindsberg]

Thank you!
That's what I did last night!
It Worked!

Super ... thanks for letting me know. And for asking in the first place.