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
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