Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assigning backgroundcolor to button on form
I have the following code to assign a background color to a button on a
userform. Set Mycmd = Controls.Add("Forms.CommandButton.1", "COL") Mycmd.Left = 12 Mycmd.Top = 70 Mycmd.Width = 12 Mycmd.Height = 12 ActiveSheet.Select Mycmd.BackColor = Range(Cells(1, 1)).Interior.color This code returns me the error "Method range of _object global failed". When I change the line Mycmd.BackColor = Range(Cells(1, 1)).Interior.color to Mycmd.BackColor = Range("A1").Interior.color the codes work just fine. What is wrong with my code?? As I expect cells(1,1) to be the same as range("A1"). Furthermore I have to have line activesheet.select in the statement to copy the colors correctly (when it are colors not from default palette). Does anyone know why this part of the code should be included? TIA |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assigning backgroundcolor to button on form
Don't bother I fixed the problem. Just stupid me!
"Brotha lee" schreef: I have the following code to assign a background color to a button on a userform. Set Mycmd = Controls.Add("Forms.CommandButton.1", "COL") Mycmd.Left = 12 Mycmd.Top = 70 Mycmd.Width = 12 Mycmd.Height = 12 ActiveSheet.Select Mycmd.BackColor = Range(Cells(1, 1)).Interior.color This code returns me the error "Method range of _object global failed". When I change the line Mycmd.BackColor = Range(Cells(1, 1)).Interior.color to Mycmd.BackColor = Range("A1").Interior.color the codes work just fine. What is wrong with my code?? As I expect cells(1,1) to be the same as range("A1"). Furthermore I have to have line activesheet.select in the statement to copy the colors correctly (when it are colors not from default palette). Does anyone know why this part of the code should be included? TIA |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assigning backgroundcolor to button on form
I suspect that "color" should be "colorindex". Was this the case?
Good to see you figured it out though! -- Regards, Zack Barresse, aka firefytr "Brotha lee" wrote in message ... Don't bother I fixed the problem. Just stupid me! "Brotha lee" schreef: I have the following code to assign a background color to a button on a userform. Set Mycmd = Controls.Add("Forms.CommandButton.1", "COL") Mycmd.Left = 12 Mycmd.Top = 70 Mycmd.Width = 12 Mycmd.Height = 12 ActiveSheet.Select Mycmd.BackColor = Range(Cells(1, 1)).Interior.color This code returns me the error "Method range of _object global failed". When I change the line Mycmd.BackColor = Range(Cells(1, 1)).Interior.color to Mycmd.BackColor = Range("A1").Interior.color the codes work just fine. What is wrong with my code?? As I expect cells(1,1) to be the same as range("A1"). Furthermore I have to have line activesheet.select in the statement to copy the colors correctly (when it are colors not from default palette). Does anyone know why this part of the code should be included? TIA |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Assigning A Macro to A Button | Excel Worksheet Functions | |||
Change backgroundcolor | Excel Discussion (Misc queries) | |||
Assigning macro to button | Excel Discussion (Misc queries) | |||
Assigning a macro to a "button" | Excel Discussion (Misc queries) | |||
Assigning name to button | Excel Programming |