Avatar of hindersaliva
Flag for United Kingdom of Great Britain and Northern Ireland

asked on 

PowerPoint 2016 VBA - selecting a shape problem

My presentation has 10 slides. The shape "Note 85" is on Slide 2. The following code I thought would look for the shape on any of the slides. Strangely, it seems to only look at the shapes in Slide 1. But I can't see why!!!
Can somebody see what I'm missing please?

Note: if "Note 85" is on Slide 1 it finds it.

strShapeToSelect = "Note 85"

For Each sld In ActivePresentation.Slides

    Set shp = sld.Shapes(strShapeToSelect)

    If Not IsEmpty(shp) Then
        shp.Fill.ForeColor.RGB = RGB(255, 0, 0)
        Exit For
    End If

Open in new window

Microsoft PowerPointVBA

Avatar of undefined
Last Comment

8/22/2022 - Mon