VBA - Color/Colour Shape Fill and Line

[i_excel]

Hey

I've got an oval that I would like to colour. I want to change the colour of its fill and border.

I am currently using this code without success:

 With ActiveSheet.Shapes("Oval 1")

    .Fill.ForeColor.RGB = RGB(217, 0, 217)
    .Line.BackColor.RGB = RGB(198, 217, 241)
    .TextFrame.Characters.Font.Color = RGB(255, 255, 255)
    .Select

I was hoping that someone could explain to me why that was.. The code selects the oval as desired, which makes me think that the preceding colouring code is not buggy but that something else is standing in the way..

Any help would be much appreciated.

Kind regards
i_excel

PS I am not sure what .textframe does yet, but it is not the culprit preventing colouring..

 

[Michael M]

You have to select the shape first....before you colour it !!!

Sub MM1()
With ActiveSheet.Shapes("Oval 1")
    .Select
    .Fill.ForeColor.RGB = RGB(217, 0, 217)
    .Line.BackColor.RGB = RGB(198, 217, 241)
    .TextFrame.Characters.Font.Color = RGB(255, 255, 255)
End With
Range("A1").Select
End Sub

 

[JoeMo]

You have to select the shape first....before you colour it !!!

Hi Michael,
I don't think you have to select the shape to change its format. The OP's code works fine for me (after adding an End With), but I think the .Line.Backcolor ... should be .Line.ForeColor... to add a visible border.

 With ActiveSheet.Shapes("Oval 1")
    .Fill.ForeColor.RGB = RGB(217, 0, 217)
    .Line.ForeColor.RGB = RGB(198, 217, 241)
    .TextFrame.Characters.Font.Color = RGB(255, 255, 255)
    .Select
    End With

 

[i_excel]

Hi (again) Michael M and JoeMo

Thank you both for your help. I cannot explain why, but the initial code (edited as you suggested JoeMo) is now working. It started working after I manually changed the shape fill to some other colour first.. I don't understand but at least it works now..

Regards

i_excel

PS My bad for missing the "end with" from my original post. It wasn't missing from my sub and so isn't a suspect.