Change colour of specific shape on 1 slide (not all slides)

[Jack.Conroy]

Hi,
I am new to VBA and looking for some assistance on a code to change the colour of a specific shape on a powerpoint slide (but not all slides - just the active slide I am on). The current shape is a ShapeSnipRectangle (Left:=515, Top:=0, Width:=205, Height:=80) and is coloured RGB(255, 255, 102).

I have the below code but this changes all shapes in all slides not just the current slide.

Sub Slide_Updated()
   Dim oSh As Shape
   Dim oS1 As Slide
   For Each oS1 In ActivePresentation.Slides
       For Each oSh In oS1.Shapes
           If oSh.Fill.ForeColor.RGB = RGB(255, 255, 102) Then
               oSh.Fill.ForeColor.RGB = RGB(179, 222, 104)
           End If
       Next oSh
   Next oS1
End Sub

Thanks,
Jack.

[Bob Phillips]

Is this what you are looking for?

Sub Slide_Updated()
Dim oSh As Shape
Dim oS1 As Slide
Dim idx As Long

    idx = ActiveWindow.View.Slide.SlideIndex
    With ActivePresentation.Slides(idx)
        With .Shapes("myShape")
            If .Fill.ForeColor.RGB = RGB(255, 255, 102) Then
                .Fill.ForeColor.RGB = RGB(179, 222, 104)
            End If
        End With
    End With
End Sub

[John Wilson]

Or maybe

Sub Slide_Updated()   

Dim osld As Slide
   Dim oshp As Shape
   Set osld = ActiveWindow.Selection.SlideRange(1)
   For Each oshp In osld.Shapes
      If oshp.Fill.ForeColor.RGB = RGB(255, 255, 102) Then
         oshp.Fill.ForeColor.RGB = RGB(179, 222, 104)
      End If
   Next oshp

End Sub