Powerpoint macro to use shape text label to populate name shown in selection pane

[Stampie]

I have a slide with over 230 rectangles (containing text labels, e.g. Marketing).


In the selection pane the rectangles all have names like 'Rectangle3'


To aid selection, I'm trying to come up with a macro to go through the rectangle text labels, and replace the corresponding selection pane name, e.g. Marketing >> Rectangle3 becomes Marketing >> Marketing


I'm pretty new to VBA in powerpoint and struggling to work this one out


I think I need to copy the 'label' attribute to the 'name' but not sure how to go about it

Any tips appreciated
thanks
Nick

[John Wilson]

Not completely clear what you mean by TEXT LABEL" assuming you mean you added text to the shapes try this. Note this will modify ALL slides. For just the current slide (or selected slides)

Replace
For Each osld In ActivePresentation.Slides
With
For Each osld In ActiveWindow.Selection.SlideRange

Sub fixSelPane()
    Dim osld As Slide
    Dim oshp As Shape
    For Each osld In ActivePresentation.Slides
        For Each oshp In osld.Shapes
            If oshp.HasTextFrame Then
                If oshp.TextFrame.HasText Then
                    oshp.Name = oshp.TextFrame.TextRange
                End If
            End If
        Next
    Next
End Sub