Set FirstMargin/LeftMargin of a Paragraph with VBA / PowerPoint 2010 RRS feed

  • Question

  • With this code i can change the "LeftMargin" of the level of the first selected Paragraph:

    Dim IndentLevel As Integer
    Let IndentLevel = ActiveWindow.Selection.TextRange.Paragraphs(1).IndentLevel

    let ActiveWindow.Selection.TextRange.Parent.Ruler.Levels(IndentLevel).FirstMargin = 10
    let ActiveWindow.Selection.TextRange.Parent.Ruler.Levels(IndentLevel).LeftMargin = 1

    Does someone know a way to change only the "LeftMargin" of the first selected Paragraph?
    (without changing the "LeftMargin" of the level)

    Thanks for your attention.

    Monday, June 15, 2015 7:41 AM