Find colour of a shape

[tiredofit]

This colours in a shape:

ActiveSheet.Shapes.Range(Array("Colour Title")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With

I want to find the colour of this shape but why doesn't this work?

Dim FindColour


FindColour = ActiveSheet.Shapes.Range(Array("Colour Title")).ShapeRange.Fill.ForeColor.RGB

Thanks

 

[tiredofit]

EDIT SORTED:

Dim FindColour

FindColour = ActiveSheet.Shapes("Colour Title").Fill.ForeColor.RGB

 

[Rick Rothstein]

This colours in a shape:

ActiveSheet.Shapes.Range(Array("Colour Title")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With

I want to find the colour of this shape

I am not sure why you chose to implement the red highlighted line of code the way you did, but if I understand what you are trying to do correctly, I believe it can be written in this simpler way...

ActiveSheet.Shapes("Colour Title").Select

With that said, I would point out that you do not have to select a shape in order to do things with that shape. The following snippet of code will do the same thing your first snippet of code (shown above) does...

With ActiveSheet.Shapes("Colour Title").Fill
  .Visible = msoTrue
  .ForeColor.RGB = RGB(255, 255, 0)
  .Transparency = 0
  .Solid
End With

Now, to get the color of this shape, you can use this line of code...

FindColour = ActiveSheet.Shapes("Colour Title").Fill.ForeColor

 

[tiredofit]

Thanks.

The line quoted was from a recorded macro.