Avatar billede gonnemand Nybegynder
23. april 2009 - 10:30 Der er 2 kommentarer og
1 løsning

Indsæt checkbox i et sheet via kode?

Jeg vil gerne indsætte checkbokse ind i et sheet/ark dynamisk.

Dette kan jeg sådan set allerede, men ved brug af form-checkboxes.
I stedet vil jeg gerne bruge checkboxes fra Control Toolbox'en.
I Excel 2003: View -> Toolbars -> Control Toolbox (eller Forms, som jeg ikke vil benytte)

Nuværende kode:

Set myRange = Sheets("Målinger").Range(Cells(7, 1), Cells(7 + UBound(checkList), 1))
    For Each c In myRange.Cells
        strCheckBoxValue = c.Value
        Sheets("Målinger").checkBoxes.Add(c.Left, c.Top, c.Width, c.Height).Select

Kan dette laves om til at bruge CheckBox fra Control ToolBox?
Avatar billede supertekst Ekspert
23. april 2009 - 10:46 #1
Til inspiration -(resultat fra indspilning af makro):

Sub Makro1()
    Application.CommandBars("Control Toolbox").Visible = True
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=245.25, Top:=111.75, Width:=33, Height:= _
        22.5).Select
End Sub
Avatar billede gonnemand Nybegynder
24. april 2009 - 14:41 #2
ARGH.... selvfølgelig.. optage makro.

Nogle gange kan man ikke se skoven for bare træer :-P

Har halvt testet det, og det ser ud til at det virker :-)

Så den er godtaget.
Avatar billede supertekst Ekspert
24. april 2009 - 15:01 #3
Fint - et svar...
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
Kurser inden for grundlæggende programmering

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