change button text color

Hiya. Have a workbook with a commandbutton called "split". The caption,
likewise, is "split" I need some vba code to change the caption's font
color from black to gray.

When I record a macro and change the ForeColor property of the button, it
only records "ActiveSheet.Shapes("split").Select" and nothing else.

TIA, Martin

Hi Martin

try something like this:
ActiveSheet.Shapes("split").DrawingObject.Font.ColorIndex = 15

Thanks




"Martin Just" wrote:

> Hiya. Have a workbook with a commandbutton called "split". The caption,
> likewise, is "split" I need some vba code to change the caption's font
> color from black to gray.
>
> When I record a macro and change the ForeColor property of the button, it
> only records "ActiveSheet.Shapes("split").Select" and nothing else.
>
> TIA, Martin
>
>
>

You may also try this:

Dim btn As Button
Set btn = ActiveSheet.Buttons(1)
btn.Font.ColorIndex = 3 'Red l