Reference mellem kontrolelementer på Worksheet og VBA

Worksheets("Ark1").CheckBox1.Value

Her er en kode der ændrer en checkbox til True - altså med "hak" i

ActiveSheet.OLEObjects("CheckBox1").Object.Value = 1

Att: rvm
Jeg får meddelelsen:
Unable to get the OLEObjects property of the worksheet class

???

rvm>> jeg kommenter flitigt i dag *SS* jeg synes man skal bruge True og False

' Hvis din checkbox er fra værktøjslinien "Kontrolelementer"
Worksheets("Ark1").CheckBox1.Value = True
' Hvis din checkbox er fra værktøjslinien "Formular"
ActiveSheet.OLEObjects("CheckBox1").Object.Value = True

Skal der sættes noget i Tools -> References?

Nej.

Det giver samme fejl som ved kommentar: 11:32

Gør det nogen forskel at jeg bruger en engelsk version. (kan jeg ikke forestille mig)
Jeg bruger XP

flemming ->> Så længe dine kommentarer er fornuftige er de meget velkomne *S* Jeg vil også normalt brug True eller False - jeg kopierede bare eksemplet fra hjælpen og der stod der "1". Begge vore forslag virker forøvrigt, når checkboksen er fra værktøjslinien "Formular"

Jeg har i desperation forsøgt fra værktøjslinien 'Kontrolelementer'. Her virker det fint med:
  Worksheets("sheet1").chkControl1.Value = True

Jeg er også ganske tilfreds med jeres hjælp, men ville pokkers gerne lige have det til at virke fra værktøjslinien Forms

Gør det nogen forskel at chkboksene er i en gruppeboks?

Når jeg bruger checkbox'en fra værktøjslinene "Forms" i min engelske XP, så kan bliver navnet på checkbox'en "Check Box 1"
Worksheets("Sheet1").OLEObjects("Check Box 1").Object.Value = True
virker umiddelbart heller ikke for mig!!! hmmm

.Object har ikke egenskaben Value ! hmmm

Hvorfor så ikke bare bruge mit opridelige forslag?

ActiveSheet.OLEObjects("CheckBox1").Object.Value = 1

Det virker jo ikke i engelsk XP. Send evt. en prøve til torben@soelbaekdata.dk

rvm>> jeg fatter det ikke jeg kan ikke få fat i Value egenskaben ?

Jeg kan godt ændre True / False ved at skriv til den celle, som checkboksen er linket til !

Så kan man jo klare sig ved at påvirke den linkede celle, men det kan jo ikke være den optimale løsning. Man burde kunne ændre værdien i feltet direkte, uden at skulle opsætte en linket celle.

Torben

hvis man select'er først så kan man.
ActiveSheet.Shapes("Check Box 1").Select
    Selection.Value = xlOff

Dejligt med en ny indgangsvinkel, men umiddelbart er det ikke så heldigt at hele rammen (hele objektet bliver markeret). Men værdien tilskrives godt nok.

Torben

så select'er du bare noget andet bagefter. Det går så hurtigt at du ikke når at se det
ActiveSheet.Shapes("Check Box 1").Select
    Selection.Value = xlOn
    [a1].Select

Jeg prøvede med denne her:

Worksheets("sheet1").OLEObjects(1).Select

Men det ser ud til, at indekset på OLEObjects refererer til det der er sat på via kontrolelementer og ikke via forms.
Ved ikke om det hjælper jer. Det hjælper ikke mig.

Torben

Desværre - der er kun bak's løsning tilbage nu. Jeg har prøvet alt muligt, men det ser ikke ud som om de er nogen anden "work arround". Denne kode skifter mellem tilstandene:

ActiveSheet.Shapes("Check Box 3").Select

If Selection.Value = xlOn Then
    Selection.Value = xlOff
    Else
    Selection.Value = xlOn
End If

Forøvrigt brugte jeg denne kode til at finde navnet, da det ellers ikke fremgår nogen steder (hvis man har en dansk version):

Set myDocument = Worksheets(1)
For Each sh In myDocument.Shapes
    MsgBox sh.Name
Next

Jeg er lidt i tvivl om pointfordeling. Alle har deltaget fornuftigt, uden at vi har opnået en krystalklar løsning. BAK kunne også fortjene lidt point, så hvis han lige svarer ind, deler jeg simpelthen i tre.

Tak for indsatsen, Torben

bip :-)

Torben -> navnet fremgår af navneboksen øverst venstre hjørne, når du har markeret checkboxen

Ja, det ved jeg. Jeg synes dog, at der i hjælpen står noget om, at selvom man har navngivet elementet til f.eks. ChkBonus, skal man referere til objektets oprindelige navn. Jeg har her klippet fra hjælpen: (beklager den lange tekst)
An ActiveX control on a sheet has two names: the name of the shape that contains the control, which you can see in the Name box when you view the sheet, and the code name for the control, which you can see in the cell to the right of (Name) in the Properties window. When you first add a control to a sheet, the shape name and code name match. However, if you change either the shape name or code name, the other is not automatically changed to match.

You use the code name of a control in the names of its event procedures. However, when you return a control from the Shapes or OLEObjects collection for a sheet, you must use the shape name, not the code name, to refer to the control by name. For example, assume that you add a check box to a sheet and that both the default shape name and the default code name are CheckBox1. If you then change the control code name by typing chkFinished next to (Name) in the Properties window, you must use chkFinished in event procedures names, but you still have to use CheckBox1 to return the control from the Shapes or OLEObject collection, as shown in the following example.

Private Sub chkFinished_Click()
    ActiveSheet.OLEObjects("CheckBox1").Object.Value = 1
End Sub

torben

Det er rigtigt Torben, men det uddrag gælder kun for activeX-komponenter.
hvis du vælger at bruge checkbox fra FORMS er det ikke activeX-komponenter, men en overlevering fra excel5.
Bemærk at du ikke kan sætte properties for dem.

Checkbox'en fra CONTROL TOOLBOX er activeX-komponenter.
Her kan du sætte properties ved at højreklikke på elementet og vælge Properties.

Ach so...
Jeg glad for at du kunne slå forskellen fast. Jeg var ikke klar over skelningen.

Tak, mvh. Torben

Hvis du dobbeltklikker på en checkbox fra CONTROLS (mens du er i designmode) kan du indsætte følgende unden problemer
Private Sub CheckBox1_Click()
CheckBox1.Value = True
End Sub

Alt andet lige tyder det på, at man skal vælge at bruge fra controls istedet for fra forms. Jeg undrede mig umiddelbart over, at der ikke var en gruppeboks man kunne vælge, men har fundet den relevante egenskab på option-felter.

Torben

Og her er så en anden forskel:

Når man arbejder i Excel vil jeg klart anbefale at bruge objekter fra værktøjslinien "Kontrolelementer", mens jeg i Word vil anbefale objekter fra værktøjslinien "Formular", da Word har store placeringsmæssige problemer med objekter fra værktøjslinien "Kontrolelementer".