Applies a theme or design template to the specified range of slides.

Syntax

expression.ApplyTheme(themeName)

expression A variable that represents a SlideRange object.

Parameters

Name Required/Optional Data Type Description
themeName Required String The path and name of the theme file (.thmx) or design template file (.pot) to apply to the SlideRange object.

Example
This example applies a saved theme to the specified range of slides:

Visual Basic for Applications 
ActivePresentation.Slides.Range(Array(1, 3)).ApplyTheme "C:\Program Files\Microsoft Office\Templates\MyTheme.thmx"
This example applies a saved design template to the specified range of slides:
Visual Basic for Applications 
ActivePresentation.Slides.Range(Array(1, 3)).ApplyTheme "C:\Program Files\Microsoft Office\Templates\MyTheme.pot"

See also: