OfficeTips Home || VBA Section || General Section || Download Section || Privacy Policy

How to reset slide layout

PowerPoint 2007 introduced the ability to create user defined layouts. This is an awesome feature but it also means that some changes are required to adapt code which worked in earlier versions to reset a slide. The trick is to reapply the custom layout that is applied to the slide.

  Sub ResetSlideLayout2007()

Dim oSld As Slide
Set oSld = ActiveWindow.Selection.SlideRange(1)

oSld.CustomLayout = oSld.CustomLayout

End Sub

Sirli Reapalu provided this snippet which does the same task.
 
  Sub ResetSlideLayout2007()

ActiveWindow.Selection.SlideRange(1).Select
Application.CommandBars.ExecuteMso ("SlideReset")

End Sub

Copyright 1999-2012 (c) Shyam Pillai. All rights reserved.