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

Application.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Paragraphs.Count 


Indentation


Return Indent Level for a specific paragraph

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

Define the indentation level for a paragraph

With gApplicationPowerPoint.ActivePresentation.Slides(iSlideIndex). _ 
        Shapes(gApplicationPowerPoint.ActiveWindow.Selection.ShapeRange.Name).TextFrame.Ruler
   .Levels(1).FirstMargin = sngLevel1First
   .Levels(1).LeftMargin = sngLevel1Left
End With




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