PowerPoint: applying built-in theme: path has to be hard-coded. Why? There has to a workaround.

[Jamualson]

I see currently in the Themes section 30 themes, but in template files folder there is only 8 thmx files. Why?

I find it very over complicated to hard-code these paths manually, there has to be an easier way to set a built-in ppt theme.

Sub Change_Theme()
Application.ActivePresentation.ApplyTemplate "C:\Program Files\Microsoft Office\root\Document Themes 16\Facet.thmx"

End Sub

ActivePresentation.TemplateName seems to give back the name of the template, but I want to make dynamic the other parts as well, like getting the whole path.

Is there any creative solution to solve this?

Thank you very much