Hi there.

I like the second code, because it work in all slides, but it need to call the name of the osld.Shapes("GoogleShape1") like in the first code, so how to rewrite it?


Sub changedcolor()
Dim hshp As Shape
Dim osld As Slide
Dim j As Long
Dim r As Long
Dim g As Long
Dim b As Long
Set osld = ActivePresentation.Slides(1)
Set hshp = osld.Shapes("GoogleShape1")
If hshp.Fill.ForeColor.RGB = RGB(255, 255, 255) Then
     hshp.Fill.ForeColor.RGB = RGB(50, 50, 50)
     hshp.Fill.Solid
End If
End Sub

Sub addColorhexagon_1()
Dim oPres As Presentation
Dim oShape As Shape
Dim oSlide As Slide
Dim j As Long
Dim r As Long
Dim g As Long
Dim b As Long
Set oPres = ActivePresentation
For Each oSlide In oPres.Slides
    For Each oShape In oSlide.Shapes
        If oShape.Type = msoAutoShape Then
            If oShape.AutoShapeType = msoShapeIsoscelesTriangle Then
                oShape.Fill.ForeColor.RGB = RGB(50, 50, 50)
            End If
       End If
    Next
    Next
End Sub