Command Button - Changing Font

[Rocky0201]

Hi.

The following code works great retrieving the interior color of a cell and setting that color as my backcolor of my CommButton:

With ThisWorkbook.Worksheets("Sheet1")
            CommandButton10.BackColor = .Range(.Cells(i, 10), .Cells(i, 10)).Interior.Color
End With

My problem is, I am also trying to retrieve the font color from the same cell on Sheet1 to set that font color on the same Commbutton10. I cannot find the appropriate syntax to make this happen.

Please let me know the appropriate code that I can use.

Thanks,

 

[Domenic]

Try...

With ThisWorkbook.Worksheets("Sheet1")
    CommandButton10.BackColor = .Range([FONT=monospace].Cells(i, 10), .Cells(i, 10)[/FONT]).Interior.Color
    [COLOR=#ff0000]CommandButton10.ForeColor = .Range([FONT=monospace].Cells(i, 10), .Cells(i, 10)[/FONT]).Font.Color[/COLOR]
End With

 

[Rocky0201]

Domenic, Thank you very much!!! That did the trick.

 

[Domenic]

You're very welcome!