Change colour of a custem shape on all slides

[mads husted]

Hi there.

I have a problem with a custom shape that I want to change color on all slides.
I found this code in another post and its working on the standart shape. But if a change the shape, I cant finde the name so I can get it working.
What is the way to change the code msoShapeIsoscelesTriangle to the name of the shape insted?

Sub addColorTriangle_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