Naming shapes & objects on a powerpoint slide

[RSGB]

Hi

How do I name the objects I have on a Powerpoint slide?

When I try to set up animations the items are all called Chart 1, text 3 etc. On the other hand if I iterate through the shapes in VB they have names like Object2, Text Box 5.

I don't want to do it through VB if I can help it but I can't see how to do this on any of the menus.

Thanks in advance

VTS

 

[RSGB]

Bump...

 

[RSGB]

Well I did it in VB after all. Should anyone be interested, here was how I did it:


Sub Macro1()

Dim a As Slide, b As Shape, c As String, d As Integer

For d = 1 To ActivePresentation.Slides.Count

ActiveWindow.View.GotoSlide Index:=d
Set a = ActivePresentation.Slides(d)
a.Select
c = InputBox("Rename this Slide?", , a.Name)
If c <> &quot;&quot; Then a.Name = c

For Each b In a.Shapes
b.Select
c = InputBox(&quot;Rename this chart item?&quot;, , b.Name)
If c <> &quot;&quot; Then b.Name = c
Next b
Next d



VTS