LeftIndent at Bullets in VBA

[George]

Hi

PPT 2003:
I try to format a TextFrame with bullets by VBA.
How can I format the frame that there is a space
between the bullet and the text.

Manually I can just drag the marker in the scale.
When I record this action with the macro-editor,
there is no code in the macro afterwords.

In Word-VBA the code is something like
Selection.LeftIndent = x
or Selection.FirstLineIndent = -x

Thanks for any help.

Best Regards, George

 

[vindys]

Try this ruler.levels

ActivePresentation.Slides(1).Shapes(1).TextFrame.Ruler.Levels(1).LeftMargin
= 400

 

[John Wilson]

Try something like this

With ActiveWindow.Selection.ShapeRange.TextFrame.Ruler.Levels(1)
..LeftMargin = xx
..FirstMargin = yy
End With

Note that it will error if no shape selected or selected item has no
textframe so some error checking would be good. You can set up to 5 levels in
a placeholder
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

 

[George]

Dear Vindys and dear John

Thanks a lot for your help; my
problem is solved!

Best Regards, George