P
Peterd
Could anybody please give me some ideas for this problem.
Ref:All the controls I have used are ActiveX and emmbedded into a
worksheet.
I am trying to loop through a grouped set of checkboxes and if the
value is true then I want to load the Caption of the checkbox into a
listbox, or a TextBox. I can get everything to work except loading the
caption of the checkBox into the listBox. I can get the Caption to load
into a Listbox if I use the click event of a checkbox itself but I
can't seem to get it to work within the loop.
Note: The counter is for testing only.
Private Sub CommandButton1_Click()
Dim OLEObj As OLEObject
i = 0
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
If OLEObj.Object.GroupName = "ImmediateCauseAct" Then
If OLEObj.Object.Value = True Then
ListBox1.AddItem OLEObj.Oject.Caption ??Problem Line
i = i + 1
End If
End If
End If
Next OLEObj
MsgBox i
End Sub
Ref:All the controls I have used are ActiveX and emmbedded into a
worksheet.
I am trying to loop through a grouped set of checkboxes and if the
value is true then I want to load the Caption of the checkbox into a
listbox, or a TextBox. I can get everything to work except loading the
caption of the checkBox into the listBox. I can get the Caption to load
into a Listbox if I use the click event of a checkbox itself but I
can't seem to get it to work within the loop.
Note: The counter is for testing only.
Private Sub CommandButton1_Click()
Dim OLEObj As OLEObject
i = 0
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
If OLEObj.Object.GroupName = "ImmediateCauseAct" Then
If OLEObj.Object.Value = True Then
ListBox1.AddItem OLEObj.Oject.Caption ??Problem Line
i = i + 1
End If
End If
End If
Next OLEObj
MsgBox i
End Sub