VBA question-bullets

[Edward]

Hi everubody,
I know this is not an easy question and might not have an easy solution in
PP. My PP is based on a template (pot) which on its slide master I altered
the bullet settings.

Level 1 Text < - - Bold, no indent
Level 2 Text < ---- no bold, no indent
Level 3 Text < --- ,bullet, indent
Level 4 Text < --- bullet , indent
Level 5 Text < --- bullet , indent

Basically what I did is , I removed bullet and indentation fro level one and
two in bodytext placeholder which is the default setting in PP , the reason
for this is we often have combination of bullet and regular text which
usually starts with bold title , then regular text and then bullet.. Of
course with PPs indent increase,decrease methods I can change the levels
easily.

I want to have the same functionality in tables as well so I have the
following code

With oShp.Table.Cell(i, j).Shape.TextFrame.TextRange
.Text = " "
.Font.Name = "Sabon LT Std"

.ParagraphFormat.Bullet=True

.Paragraphs(1).IndentLevel = 3
.Font.Size = 12
End With
In this code I have to explicitly write
.ParagraphFormat.Bullet=True

Because just applying level 3 doesn’t create a bullet , but the problem I
have is when I increase the indent it correctly changes the bullet and even
font (level3,level 4,level 5) but when I decrease the indent (level 2, level
1) although it changes the font correctly ( based on my POT settings for
different levels in slide master bodytext levels) but I doesn’t remove the
bullet.
so I want to know is someone can suggest anything ?

 

[Bill Dilworth]

Edward,

A large glass of pretentious red wine and a walk in the snow would be my
best suggestion, but that won't help with the PowerPoint thing.

You may try saving the text out to a string, deleting the entire line of
text from the textbox, adding the text back (as level 1), then changing the
paragraph level. Its a bit of an end around solution, but it should work.
Just be careful about text after this line.

Bill Dilworth