Promote / Demote Bullet with VBA

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a standard text layout slide and I wat to be able to add bullets and
then control their indentation level using VBA.

I tried the Macro Recorder and when I replay the macro all bullets are
inserted at the same level rather than their original level.

So, how do I automate the Promote / Demote functio in PowerPoint.

Thanks in Advance
 
The TextRange.IndentLevel determines the level at which the bullet is
indented. Add one to the level to demote the bullet. Decrement one from the
level to promote it.

For instance, if the cursor is on a text in a bullet list, the following
statement will demote the bullet point:
ActiveWindow.Selection.TextRange.IndentLevel = _
ActiveWindow.Selection.TextRange.IndentLevel + 1

- Chirag

OfficeOne Animations - Add over 50 animation effects to PowerPoint
http://officeone.mvps.org/anims/anims.html
 
Back
Top