Coloring interior of a rectangle

[mtheriault2000]

Hello

I have tried with macro register, but nothing came out

I want to color the interior of a drawing, "Rectangle 45" in red or green. How do I access it?

Martin

 

[AlphaFrog]

Sub Rectangle_Background()
    Sheets("Sheet1").Shapes("Rectangle 45").DrawingObject.Interior.ColorIndex = 3 'Red
End Sub

 

[mtheriault2000]

Re: Coloring interior of a rectangle..Resolved

Hello

I did resolved my problem

ActiveSheet.Shapes("Rectangle 45").Fill.ForeColor.RGB = RGB(0, 155, 0) 'Green
  ActiveSheet.Shapes("Rectangle 45").Fill.ForeColor.RGB = RGB(255, 0, 0) 'Red

Martin