Greetings,

I have a CommandButton on a worksheet from the ToolbarsControl
Toolbox. I need it to change colors when I click on it.

Using the macro recorder, the button shows up as a Shape. However the
recorder did not record the actual color changing that I hopped it
would. The recorder showed this:

ActiveSheet.Shapes("CommandButton1").Select

From that I tried this:

With ActiveSheet.Shapes("CommandButton1")
.Select
With .Fill
.BackColor = &HFFFF00
.ForeColor = &H0&
End With
End With

This give a type mismatch error high lighting the .BackColor line.

Anyone know how to make this work?

Any help is appreciated.

-Minitman

With ActiveSheet.OLEObjects("CommandButton1").Object

.BackColor = &HFFFF00
.ForeColor = &H0&
End With

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Minitman" wrote in message
...
Greetings,

I have a CommandButton on a worksheet from the ToolbarsControl
Toolbox. I need it to change colors when I click on it.

Using the macro recorder, the button shows up as a Shape. However the
recorder did not record the actual color changing that I hopped it
would. The recorder showed this:

ActiveSheet.Shapes("CommandButton1").Select

From that I tried this:

With ActiveSheet.Shapes("CommandButton1")
.Select
With .Fill
.BackColor = &HFFFF00
.ForeColor = &H0&
End With
End With

This give a type mismatch error high lighting the .BackColor line.

Anyone know how to make this work?

Any help is appreciated.

-Minitman

Hey Bob,

That works very well.
Thanks.

-Minitman

On Wed, 21 May 2008 16:14:04 +0100, "Bob Phillips"
wrote:

With ActiveSheet.OLEObjects("CommandButton1").Object

.BackColor = &HFFFF00
.ForeColor = &H0&
End With

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Minitman" wrote in message
.. .
Greetings,

I have a CommandButton on a worksheet from the ToolbarsControl
Toolbox. I need it to change colors when I click on it.

Using the macro recorder, the button shows up as a Shape. However the
recorder did not record the actual color changing that I hopped it
would. The recorder showed this:

ActiveSheet.Shapes("CommandButton1").Select

From that I tried this:

With ActiveSheet.Shapes("CommandButton1")
.Select
With .Fill
.BackColor = &HFFFF00
.ForeColor = &H0&
End With
End With

This give a type mismatch error high lighting the .BackColor line.

Anyone know how to make this work?

Any help is appreciated.

-Minitman