Show me the designs in a presentation; apply designs ONLY to selected slides

PPTools
Shape Styles brings the power of styles to PowerPoint. Apply complex formatting with a single click
Merge Excel, CSV or tab-delimited data into PowerPoint presentations to create certificates, awards presentations, personalized presentations and more
FixLinks prevents broken links when you distribute PowerPoint presentations
Optimizer saves disk space and bandwidth, shrinks your PowerPoint presentations to the right size for email, screenshow or printing
PPT2HTML gives you full control of PowerPoint HTML output, helps meet Section 508 accessibility requirements
Prep4PDF preserves interactivity in PowerPoint presentations when you convert to PDF
Image Export converts PowerPoint slides to JPG, PNG, GIF, WMF and more

This demonstrates how you can apply masters/designs to selected slide or slides rather than PowerPoint's rather odd default behavior of applying a design to all slides in a presentation:

Sub SensiblyApplyMasters()
    With ActiveWindow.Selection.SlideRange
       ' assuming you have a design named "Bob" ...
       .Design = ActivePresentation.Designs("Bob")
    End With
End Sub

If you don't know the name of the designs but want to do it by number:

Sub NumericallyApplyMasters()
    With ActiveWindow.Selection.SlideRange
        ' choices: Nobody, Bob, Carol, TedAndAlice
       .Design = ActivePresentation.Designs(3)
    End With
End Sub

What are the names/numbers of the available designs? This'll list them.
Press Ctrl+G in the VBA editor to display the Immediate window, where this information will appear.

Sub ListMasterNames()
    Dim x As Long
    For x = 1 To ActivePresentation.Designs.Count
        Debug.Print ActivePresentation.Designs(x).Name
    Next
End Sub

Contents © 1995 - 2008 Stephen Rindsberg, Rindsberg Photography, Inc. and members of the MS PowerPoint MVP team. You may link to this page but any form of unauthorized reproduction of this page's contents is expressly forbidden.

content authoring & site maintenance by

Friday - The Automatic FAQ Maker