Help with Multi level bulleted text.

[Guest]

I working on Powerpoint Automation. In one module I have to add rectangles
to the slides behind each bulleted text in the bullet type paragraphformat
textbox. But I was not able to find a method to find the dimensions of the
bulleted text, since I have to add rectangles covering the each bullet
seperately. So, I broke down that whole paragraph in individual textboxes
containing individual bulleted text item. Now I am able to cover bullets with
rectangles. but the problem comes when there are multiple levels of bulleted
text.

Can anyone help me in this?

Thanks

 

[Shyam Pillai]

Check out : What is a Bounding Box in a shape's text range? -
http://skp.mvps.org/ppt00045.htm. You can get the bounding region for each
paragraph using the properties.

 

[Guest]

Yeah I have read that article. But the problem is when i have multiple
bullets then also they are considered as a single unit (single paragraph). I
m looking for some way that can let me get the bounding rectangles for
individual bullets (single level and multi level) in a single paragraph.

Thanks

 

[Shyam Pillai]

You can add them up. Look for sub levels and keep iterating till the end of
text range or till you hit the same top level again.

 

[Guest]

I m sorry I was not able to understand ur last suggestion.
How can I look for sub levels? Thats the point. If I could find the sublevel
then I guess my problem wud have been solved. In a single paragraph I m
putting several bullets. When I enumerate them in VB Editor and check each
shape's properties then I can go to textframe-> textrange-> paragraph
format-> bullets-> text....and here it shows all the bullets in a single
line...but it does seperated each bullet but a special character. I m using
this code:

Sub test()
For Each shp In ActivePresentation.Slides(1).Shapes
Debug.Print ActivePresentation.Name
Next
End Sub


to enumerate all the shapes on the slide and check their properties.

Can u show me any sample code which can make things clear to me? Is there
any email ID where I can contact u?

Thanks for ur help.

 

[Steve Rindsberg]

I m sorry I was not able to understand ur last suggestion.
How can I look for sub levels? Thats the point. If I could find the sublevel
then I guess my problem wud have been solved. In a single paragraph I m
putting several bullets.

Either you're doing something unusual or you're confusing the terminology.
A bullet point in PowerPoint is by definition a paragraph. That is, if
paragraphs are formatted to have bullets, then each paragraph will have one and
only one bullet.

When I enumerate them in VB Editor and check each
shape's properties then I can go to textframe-> textrange-> paragraph
format-> bullets-> text....

The properties don't line up quite that way. I'd imagine you're using something
slightly different. Could you supply an example code snippet?

and here it shows all the bullets in a single
line...but it does seperated each bullet but a special character. I m using
this code:

Sub test()
For Each shp In ActivePresentation.Slides(1).Shapes
Debug.Print ActivePresentation.Name
Next
End Sub

to enumerate all the shapes on the slide and check their properties.

The wrong code pasted in by mistake?