VBA in PowerPoint - selecting one of the shapes with the same name within the slide

[thorn91]

Hello

The question is about use of VBA for PowerPoint, so hopefully it is ok to post here.

My system at work generates PPT with multiple shapes on one slide. All the shapes are generated with the same shape name (lets assume "shape1"). Is there a way to access one or many selected shapes (lets assume certain four shapes out of twenty) and operate on them with VBA code?

 

[GWteB]

Hi,
I think it will be difficult to distinguish between the different shapes through code if they all have the exact same name.
If manually selecting the desired shapes on the relevant slide is an option for you, then the code below may be a draft of a way to access each of the desired shapes in sequence.

Sub Example()
    
    Dim sr As PowerPoint.ShapeRange
    Dim s As PowerPoint.Shape
    
    Set sr = PowerPoint.ActiveWindow.Selection.ShapeRange
    For Each s In sr
        '
        ' do some stuff
        '
    Next s
End Sub

 

[thorn91]

Hi,
I think it will be difficult to distinguish between the different shapes through code if they all have the exact same name.
If manually selecting the desired shapes on the relevant slide is an option for you, then the code below may be a draft of a way to access each of the desired shapes in sequence.

Sub Example()
  
    Dim sr As PowerPoint.ShapeRange
    Dim s As PowerPoint.Shape
  
    Set sr = PowerPoint.ActiveWindow.Selection.ShapeRange
    For Each s In sr
        '
        ' do some stuff
        '
    Next s
End Sub

yep, i acutally think this might be the only way. thank you

 

[GWteB]

You are welcome and thanks for posting back