Avatar billede gider_ikke_mere Nybegynder
21. juni 2004 - 13:18 Der er 1 kommentar og
1 løsning

Skift buttoncolor på en knap i et ark fra VBA

Button1.BackColor = &H8000& virker ok,men hvis jeg laver en Loop som her:

for I = I to 10
    if <argument> true then
          ("Button" & cstr(I)).BackColor = &H8000
    end if
next

.. får jeg denne fejl: Expected : Linenumber or Label or statement or end of statement!

Hvordan skal jeg kalde min knap?

Jeg har prøvet med:

sheets("sheet1"). ("Button" & cstr(I)).BackColor = &H8000
sheet1. ("Button" & cstr(I)).BackColor = &H8000
activesheet. ("Button" & cstr(I)).BackColor = &H8000
sheet1.controls ("Button" & cstr(I)).BackColor = &H8000
... og en masse andre
Avatar billede gider_ikke_mere Nybegynder
21. juni 2004 - 13:47 #1
sheet1.OLEObjects("Button" & cstr(I)).Object.BackColor = &HFF&
fungerer!
Avatar billede knowit-mmp Nybegynder
21. juni 2004 - 13:53 #2
Ja, det fandt jeg også ud af......

Dog ikke så hurtigt....

Troede jeg kunne bruge

For each ObjCtl in Ark1.Controls
    if TypeOf objCtl if CommandButton then
        objCtl.BackColor=&H80000
    end if
Next


...men den gik ikke....:-)

/Martin
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester