Thanks Steve. For example I want to make a TOC table based on Title
placeholders so I need a way to distinguish between titleplaceholder and
other type of text holders , or I want to have a macro to apply a certain
font style to all the textes in text placeholders ( not titles ) and so on...
basically when I loop through all the shapes I need to tell which shape os
title or text or textbox .
Thanks for your help again.
> Thanks Steve. For example I want to make a TOC table based on Title
> placeholders so I need a way to distinguish between titleplaceholder and
> other type of text holders ,
This'll give you the title:
Function GetTitle(oSld As Slide) As Shape
' return the title for oSld if any
Dim oSh As Shape
For Each oSh In oSld.Shapes
If oSh.Type = msoPlaceholder Then
If oSh.PlaceholderFormat.Type = ppPlaceholderTitle _
Or oSh.PlaceholderFormat.Type = ppPlaceholderCenterTitle Then
' it's a title
Set GetTitle = oSh
End If
End If
Next
End Function
So:
Dim oSl as Slide
Dim oSh as Shape
For each oSl in ActivePresentation.Slide
Set oSh = GetTitle(oSl)
If Not oSh = Nothing Then
' do your stuff with oSh
End if
Next
Modify GetTitle with slightly different tests and you have GetBodyText and so
on.
> or I want to have a macro to apply a certain
> font style to all the textes in text placeholders ( not titles ) and so on...
> basically when I loop through all the shapes I need to tell which shape os
> title or text or textbox .
> Thanks for your help again.
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Live and in personable in the Help Center at PowerPoint Live
Sept 21-24, San Diego CA, USA
www.pptlive.com
Edward - 25 Jul 2008 18:02 GMT
Thanks Steve. I will work on your code on weekend . Thanks a lot a again:)

Signature
Best regards,
Edward
> > Thanks Steve. For example I want to make a TOC table based on Title
> > placeholders so I need a way to distinguish between titleplaceholder and
[quoted text clipped - 48 lines]
> Sept 21-24, San Diego CA, USA
> www.pptlive.com