I have a situation were if a check (tick) box is checked, then a label
has to be displayed on the worksheet with a certain text. If the check
box is unchecked, the label has to disappear. I have managed to display
the label according to my conditions, but every time it appears, the
caption reads "label1" and NOT the text I expect it too. How do I code
the label captioning into my program?
To display the label, this is the code I used.

Private Sub CheckBox6_Click()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label .1", Link:=False, _
DisplayAsIcon:=False, Left:=136.5, Top:=72.75, Width:=72,
Height:=18) _
.Select
Range("E8").Select
End Sub

Any help would be appreciated.... thanx

How about an alternative.

Create the label manually--set up the caption to what you want.

Make sure that checkbox1 controls label1, checkbox2 controls label2, etc.

Then you can just use code to hide/show the label:

Option Explicit
Private Sub CheckBox1_Click()
Me.Label1.Visible = CBool(Me.CheckBox1.Value = True)
End Sub




" wrote:

I have a situation were if a check (tick) box is checked, then a label
has to be displayed on the worksheet with a certain text. If the check
box is unchecked, the label has to disappear. I have managed to display
the label according to my conditions, but every time it appears, the
caption reads "label1" and NOT the text I expect it too. How do I code
the label captioning into my program?
To display the label, this is the code I used.

Private Sub CheckBox6_Click()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label .1", Link:=False, _
DisplayAsIcon:=False, Left:=136.5, Top:=72.75, Width:=72,
Height:=18) _
.Select
Range("E8").Select
End Sub

Any help would be appreciated.... thanx

--

Dave Peterson

Works like a charm .... thank you kindly, Dave

Dave Peterson wrote:
How about an alternative.

Create the label manually--set up the caption to what you want.

Make sure that checkbox1 controls label1, checkbox2 controls label2, etc.

Then you can just use code to hide/show the label:

Option Explicit
Private Sub CheckBox1_Click()
Me.Label1.Visible = CBool(Me.CheckBox1.Value = True)
End Sub




" wrote:

I have a situation were if a check (tick) box is checked, then a label
has to be displayed on the worksheet with a certain text. If the check
box is unchecked, the label has to disappear. I have managed to display
the label according to my conditions, but every time it appears, the
caption reads "label1" and NOT the text I expect it too. How do I code
the label captioning into my program?
To display the label, this is the code I used.

Private Sub CheckBox6_Click()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label .1", Link:=False, _
DisplayAsIcon:=False, Left:=136.5, Top:=72.75, Width:=72,
Height:=18) _
.Select
Range("E8").Select
End Sub

Any help would be appreciated.... thanx

--

Dave Peterson