D
Dstarss
I received some help from Jay Freedman regarding themes in Word 2007, and I thought it would work the same in PowerPoint, but I'm either doing something wrong or it doesn't.
I'm trying to change the default theme using this macro, but all I get is Run-time error '424': Object required.
Any ideas?
Sub AutoOpen()
Dim ThemePath As String
Dim ThemeFile As String
ThemeFile = "MyTheme.thmx"
ThemePath = Options.DefaultFilePath( _
wdUserTemplatesPath) & _
"\Document Themes\"
On Error Resume Next
ActiveDocument.ApplyDocumentTheme _
ThemePath & ThemeFile
If Err <> 0 Then
MsgBox ThemeFile & " was not found in" & _
vbCr & ThemePath
End If
End Sub
I'm trying to change the default theme using this macro, but all I get is Run-time error '424': Object required.
Any ideas?
Sub AutoOpen()
Dim ThemePath As String
Dim ThemeFile As String
ThemeFile = "MyTheme.thmx"
ThemePath = Options.DefaultFilePath( _
wdUserTemplatesPath) & _
"\Document Themes\"
On Error Resume Next
ActiveDocument.ApplyDocumentTheme _
ThemePath & ThemeFile
If Err <> 0 Then
MsgBox ThemeFile & " was not found in" & _
vbCr & ThemePath
End If
End Sub