Color Change Syntax

[Minitman]

Greetings,

I have a CommandButton on a worksheet from the Toolbars>Control
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

 

[Bob Phillips]

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]

Hey Bob,

That works very well.
Thanks.

-Minitman