Change bullet positions in PP 2003

[Robie]

Hi

I want/have to change the bullets positions/side in a new PP template that the company wants to create for PP 2003. The standard slide created with PP 2007 created by the consultants is as follows:

standard slide 2007.png

The standard one in PP 2003 is as follows and I am unable to do much with the bullets, levels or positioning of the bullet & text in relation to each other. I can of course change the bullet type/font but *not* where level 3, 4, 5 go (i.e. make it same as Level 2). Any ideas how I can make the 2003 look like 2007?

standard slide 2003.png

Thanks. Any help highly appreciated.

Robie

[StuartR]

I no longer have a PC running Office 2003, so I can't help with the question, but I do have a question for you.

In your PPT 2007 example you seem to have exactly the same font, bullet and indentation for every level except for the first one.

What do you use the different levels for?
Why not format everything as either first level or second level?

[Robie]

Thanks for quick response Stuart.

You say: What do you use the different levels for?
It seems that the company only wants to be able to use Levels 1 and 2 in our presentation (& therefore levels 3, 4, 5 have been made same as level 2). I didn't do this but was commissioned & created using PP2007 but we need a PP2003 variant of the template which the company wants me to create (based on the PP2007 template).

You say: Why not format everything as either first level or second level?
If you mean when a person is creating their presentation, then I agree. I am trying to cover all angles, i.e. if the user does select level 3-5 then the template will just have it same as a level 2 bullet. I am just trying to make sure that an enthusiastic user is not able to create presentations with different levels apart from level 1 and level 2.

Robie

[HansV]

This macro will set the first- and left-indents for levels 3-5 to that of level 2:

Code: Select all

Sub AdjustIndents()
  Dim i As Integer
  With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Ruler
    For i = 3 To 5
      .Levels(i).FirstMargin = .Levels(2).FirstMargin
      .Levels(i).LeftMargin = .Levels(2).LeftMargin
    Next i
  End With
End Sub

You can use the format painter to make the formatting of levels 3-5 the same as that of level 2.

[Robie]

This macro will set the first- and left-indents for levels 3-5 to that of level 2:

Code: Select all

Sub AdjustIndents()
  Dim i As Integer
  With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Ruler
    For i = 3 To 5
      .Levels(i).FirstMargin = .Levels(2).FirstMargin
      .Levels(i).LeftMargin = .Levels(2).LeftMargin
    Next i
  End With
End Sub

You can use the format painter to make the formatting of levels 3-5 the same as that of level 2.

THANK YOU Hans. I will try that one out.

[Robie]

This macro will set the first- and left-indents for levels 3-5 to that of level 2:

Code: Select all

Sub AdjustIndents()
  Dim i As Integer
  With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Ruler
    For i = 3 To 5
      .Levels(i).FirstMargin = .Levels(2).FirstMargin
      .Levels(i).LeftMargin = .Levels(2).LeftMargin
    Next i
  End With
End Sub

You can use the format painter to make the formatting of levels 3-5 the same as that of level 2.

It doesn't quite work for level 3-5. It doesn't change the margins even though the values are correct/different, whatever I do :-(.

PP list levels.png

[HansV]

You'll have to select Level 3 and use Shift+Tab to remove initial tabs until you're at the same indent as Level 2.
Same for Level 4 and 5.

[Robie]

You'll have to select Level 3 and use Shift+Tab to remove initial tabs until you're at the same indent as Level 2.
Same for Level 4 and 5.

Thanks Hans. That worked wonderfully well. :0)