TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
Sub SensiblyApplyMasters() With ActiveWindow.Selection.SlideRange ' assuming you have a design named "Bob" ... .Design = ActivePresentation.Designs("Bob") End With End Sub
If you don't know the name of the designs but want to do it by number:
Sub NumericallyApplyMasters() With ActiveWindow.Selection.SlideRange ' choices: Nobody, Bob, Carol, TedAndAlice .Design = ActivePresentation.Designs(3) End With End Sub
What are the names/numbers of the available designs? This'll list them.
Press Ctrl+G in the VBA editor to display the Immediate window, where this information will appear.
Sub ListMasterNames() Dim x As Long For x = 1 To ActivePresentation.Designs.Count Debug.Print ActivePresentation.Designs(x).Name Next End Sub