Macro to Reapply Layout to All Slides in Presentation

  • Thread starter Thread starter Elisa Francesca Roselli
  • Start date Start date
E

Elisa Francesca Roselli

Hello,

I'm looking for help with a macro that would do the following:

For each slide in the active presentation,
Recover the layout type
Reapply the layout type
Next.

With the macro recorder, I have so far only been able to get as far as:

ActiveWindow.Selection.SlideRange.Layout = ppLayoutText

for slides with bulleted lists on them, but I have to do this for each
individual slide. I've been trying to make the Property Get procedure
recover the layout but cannot figure out how to make this work.

I have very little experience with PowerPoint macros and any help would
be much apprecaited. Thanks all,

EFR
Ile de France
 
I'm looking for help with a macro that would do the following:
For each slide in the active presentation,
Recover the layout type
Reapply the layout type
Next.

With the macro recorder, I have so far only been able to get as far as:

ActiveWindow.Selection.SlideRange.Layout = ppLayoutText
Click to expand...

I'm guessing you want to re-apply the layout to each slide (ie, to override any
different formatting a user may have applied)? This should do it:

Sub ReApplyLayouts()
Dim oSl as Slide
For Each oSl in ActivePresentation.Slides
oSl.Layout = oSl.Layout
Next ' oSl
End Sub
 
Back
Top