Get shape by Id or Name

Question

Is there any way to get a shape if you know its Id?

For example:

Dim myshape As Shape
myshape.Id = 42
myshape = getShapeById(myshape.Id)         


        

Answer 1

sName = ActivePresentation.Slides(k).Shapes(j).Name

where k is the slide number and j and the shape number on that slide.

You can loop through each pages shapes with something like:

k = 1
For j = 1 To ActivePresentation.Slides(k).Shapes.Count
Next j

Chris