Help with Multi level bulleted text.

[technoknight]

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.

 

[technoknight]

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.

 

[technoknight]

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.