'*************************************************************
' Changing Slide Layout
' This macro changes the layout of slides in the range stated
' by counter.
' For a list of Layout types (enumerations) check out the
' Enumerations topic
'*************************************************************
Sub ChangeSlideLayout()
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Layout = ppLayoutTitleOnly
Next i
End Sub
Subscribe to:
Post Comments (Atom)
Posts
Nice macro.
ReplyDeletecan you help me with writing a macro in ppt. which will help me changing the color of a particular text into red in throughout the slides...