YorickG
04-13-2018, 08:09 AM
Hello all,
For couple of days I try to find the best way to check if slide masters are using different color themes. I checked documentation, but didn't find anything what could return color theme name. Once I had luck with id, but it wasn't perfect.
My code right now. In case of two masters it works but with three or more it always compare to last one so there could be a situation where 1 and 3 have the same color theme and 2 different one. So now it will be ignored.
Not sure what's the difference between ColorScheme and ThemeColorScheme. Nothing returns Name. Maybe i can compare Id somehow?
Dim x As IntegerDim xDesigns As Integer
Dim nMSlide As String
x = 1
xDesigns = ActivePresentation.Designs.Count
Set pptDes = ActivePresentation.Designs
For Each Design In ActivePresentation.Designs
nMSlide = pptDes(x).Name
If xDesigns > 1 Then
If ActivePresentation.Designs(x).SlideMaster.ColorScheme(ppTitle) = ActivePresentation.Designs(xDesigns).SlideMaster.ColorScheme(ppTitle) _
And ActivePresentation.Designs(x).SlideMaster.ColorScheme(ppAccent1) = ActivePresentation.Designs(xDesigns).SlideMaster.ColorScheme(ppAccent1) Then
MsgBox "Additional masters with the same colour themes"
Else
MsgBox "Additional masters with different colour themes. Master slide name: " & nMSlide
Exit For
End If
End If
x = x + 1
Next
Thank you in advance!
For couple of days I try to find the best way to check if slide masters are using different color themes. I checked documentation, but didn't find anything what could return color theme name. Once I had luck with id, but it wasn't perfect.
My code right now. In case of two masters it works but with three or more it always compare to last one so there could be a situation where 1 and 3 have the same color theme and 2 different one. So now it will be ignored.
Not sure what's the difference between ColorScheme and ThemeColorScheme. Nothing returns Name. Maybe i can compare Id somehow?
Dim x As IntegerDim xDesigns As Integer
Dim nMSlide As String
x = 1
xDesigns = ActivePresentation.Designs.Count
Set pptDes = ActivePresentation.Designs
For Each Design In ActivePresentation.Designs
nMSlide = pptDes(x).Name
If xDesigns > 1 Then
If ActivePresentation.Designs(x).SlideMaster.ColorScheme(ppTitle) = ActivePresentation.Designs(xDesigns).SlideMaster.ColorScheme(ppTitle) _
And ActivePresentation.Designs(x).SlideMaster.ColorScheme(ppAccent1) = ActivePresentation.Designs(xDesigns).SlideMaster.ColorScheme(ppAccent1) Then
MsgBox "Additional masters with the same colour themes"
Else
MsgBox "Additional masters with different colour themes. Master slide name: " & nMSlide
Exit For
End If
End If
x = x + 1
Next
Thank you in advance!