Apply design theme to all presentation files in a directory

The below visual basic code will apply a design theme template to all powerpoint files located in a folder.

Sub ChangeDesignTheme()

sFolder = “Enter Directory Path
sFileExt = “*.pptx”
sFileName = Dir$(sFolder & sFileExt)

While sFileName <> “”
Set Presentation = Presentations.Open(sFolder & sFileName, msoFalse)
ActivePresentation.ApplyTemplate FileName:=”Enter file location of presentation template
ActivePresentation.Save
ActivePresentation.Close
Set Presentation = Nothing
sFileName = Dir()
Wend

End Sub

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s