Justify text at Tab

I have a powerpoint with a text box that when entering text if you hit Tab,
the cursur moves to the right margin and typing continues from there right
justified. A single tab is the break between left justified and right
justified. How can I set this property in PPT and VBA? Thanks.

ex.
this is my textTab 11 Sep
this is more textTab 11 Sep

Maybe something like (assuming textbox is selected):

Sub tabset()
Dim oTxtBox As Shape
Set oTxtBox = ActiveWindow.Selection.ShapeRange(1)
With oTxtBox.TextFrame
..TextRange.ParagraphFormat.Alignment = ppAlignLeft
..Ruler.TabStops.Add ppTabStopRight, (oTxtBox.Width + oTxtBox.Left)
End With
Set oTxtBox = Nothing
End Sub
--
Amazing PPT Hints, Tips and Tutorials

http://www.pptalchemy.co.uk/powerpoi...tutorials.html
_______________________________

We''re at PPTLive - see you there?
www.pptlive.com


"MeSteve" wrote:

I have a powerpoint with a text box that when entering text if you hit Tab,
the cursur moves to the right margin and typing continues from there right
justified. A single tab is the break between left justified and right
justified. How can I set this property in PPT and VBA? Thanks.

ex.
this is my textTab 11 Sep
this is more textTab 11 Sep

This was a big help to me too. Thanks, again!

----
Dale



"John Wilson" wrote:

Maybe something like (assuming textbox is selected):

Sub tabset()
Dim oTxtBox As Shape
Set oTxtBox = ActiveWindow.Selection.ShapeRange(1)
With oTxtBox.TextFrame
.TextRange.ParagraphFormat.Alignment = ppAlignLeft
.Ruler.TabStops.Add ppTabStopRight, (oTxtBox.Width + oTxtBox.Left)
End With
Set oTxtBox = Nothing
End Sub
--
Amazing PPT Hints, Tips and Tutorials

http://www.pptalchemy.co.uk/powerpoi...tutorials.html
_______________________________

We''re at PPTLive - see you there?
www.pptlive.com


"MeSteve" wrote:

I have a powerpoint with a text box that when entering text if you hit Tab,
the cursur moves to the right margin and typing continues from there right
justified. A single tab is the break between left justified and right
justified. How can I set this property in PPT and VBA? Thanks.

ex.
this is my textTab 11 Sep
this is more textTab 11 Sep