Change Button Object Background Color & Font Color

[discodavenyc1]

Hello All

I have the following code and I'd like to change the font color and background color of these buttons. I can't seem to find the proper code.
Please help. Thanks


Sub CreateButtons()

Dim x As Integer, cell As Range, btn As Object

For x = 10 To 20
For i = 1 To 3

Set cell = Cells(x, i)

Randomize
RandomString = RandString(20)
cell.Value = RandomString
Set btn = ActiveSheet.Buttons.Add(cell.Left, cell.Top, cell.Width, cell.Height)

With btn
.Caption = IIf(i = 1, "up", IIf(i = 2, "down", IIf(i = 3, "in", "")))
.Name = RandomString
'.BackColor = 65535 <--- THIS IS THE ROW RETURNING AN ERROR
.OnAction = "ProcessAction"
End With

Next i

Next x

 

[davesexcel]

Buttons from the Forms toolBox are not able to change there defaulted color.
Just the activeX controls you can change the properties.

 

[discodavenyc1]

Thank You...Much Appreciated

 

[Fluff]

Rather than using a form control button why not use a shape? You can change the colours on them quite happily.