Scripting control of the ruler Left Indent

  • Thread starter Thread starter Todd
  • Start date Start date
T

Todd

I am scripting some templates for automatic Powerpoint generation from
our database and I can't seem to find a non Read-Only property for
changing the Left Indent for the textboxs

Anyone have ideas?
 
I am scripting some templates for automatic Powerpoint generation from
our database and I can't seem to find a non Read-Only property for
changing the Left Indent for the textboxs

Select a text box and play with this:

Sub MuckWithTheMargins()
Dim x As Long

With ActiveWindow.Selection.ShapeRange.TextFrame.Ruler
Debug.Print .Levels.Count
For x = 1 To .Levels.Count
Debug.Print .Levels(x).FirstMargin
.Levels(x).FirstMargin = x * 150
Debug.Print .Levels(x).LeftMargin
.Levels(x).LeftMargin = x * 75
Next x
End With

End Sub
 
Back
Top