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
Set Presentation = Nothing
sFileName = Dir()

End Sub

Leave a Reply

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

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

Facebook photo

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

Connecting to %s