Renumber objects in a Powerpoint Document

I have a PowerPoint document that consists of many pages(slides) of images and on each slide there are several numbered images - the numbers are contained within a circle shape added with the Insert-Shape option.

Occasionally I will insert and or remove slides and move images around.

Is there a way to automatically renumber the images?

I'm assuming that it must be possible to write a macro that starts at the beginning, searches for each circle shape in turn an replaces the text.

I've attached a sample, the real document is currently 50+ slides.

I'm using PowerPoint 2013 by the way.
LVL 70
Who is Participating?
Rgonzo1971Connect With a Mentor Commented:

pls try

Sub Macro()

Idx = 1
For Each sld In ActivePresentation.Slides
    For Each Shp In sld.Shapes
        If Shp.AutoShapeType = msoShapeOval Then
            Shp.TextFrame.TextRange.Text = CStr(Idx)
            Idx = Idx + 1
        End If
End Sub

Open in new window

KCTSAuthor Commented:
Great - does exactly what I need - thank you
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.