VBA Code

AutoLayouts on a slide (Slide Title and Subtitle) are Rectangles and not Text boxes
You cannot rename the shapes on the slide masters as a unique box is created every time !!

Number of Paragraphs in a Textbox



Return Indent Level for a specific paragraph

With Application.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Paragraphs(Start:=iParagraphNo, Length:=0) 
End With

Define the indentation level for a paragraph

With gApplicationPowerPoint.ActivePresentation.Slides(iSlideIndex). _ 
   .Levels(1).FirstMargin = sngLevel1First
   .Levels(1).LeftMargin = sngLevel1Left
End With

© 2021 Better Solutions Limited. All Rights Reserved. © 2021 Better Solutions Limited TopPrevNext