Power Point - Formas libres

Tengo una diapositiva en un powerpoint que es un dibujo lleno de formas libres y necesito poder pintar de colores segun casos alguna de esas formas por VBA, el problema que tengo es que no se como referenciarme a cada forma, vamos, que no se el nombre de cada forma para poder tratarlas por codigo vba, a ver si alguien me puede ayudar.

Al final despues de mirar mucho me respondo a mi mismo....
Para contar las formas que tengo primero:
Una vez que se el numero de las formas ir probando a ver cuales son las que necesito colorear
'seleccionamos diapositiva
Set diap = ActivePresentation.Slides(1)
'pintamos objeto
diap.Shapes.Range(Array(aqui ir probando que numero corresponde a cada forma, en mi caso eran 55, asi que empiezo por el 1)).Fill.ForeColor.RGB = RGB(255, 0, 0)
Voy apuntando que numero es cada forma si se colorea en rojo y al final tengo el listado de numeros de cada forma para poder coloearlas segun la condicion que le ponga a la macro final que voy a hacer