Change ActiveLightingStyle

<?xml encoding=”UTF-8″>By Adam Nagy

Just like in case of many other styles, first you need to find the given style inside the appropriate styles collection – in this case LightingStyles. Then you assign that to the settings parameter – in this case the ActiveLightingStyle property of the Document.

Sub ChangeLightingStyle()
Dim doc As Document
Set doc = ThisApplication.ActiveDocument
Dim lss As LightingStyles
Set lss = doc.LightingStyles
' Let's just use the first style
' InternalName: "1:Cool Light"
doc.ActiveLightingStyle = lss("1:Cool Light")
End Sub

Code in action: