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!