Label in Excel... change caption from VB

[gonecrazybacksoon@gmail.com]

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]

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




"gonecrazybacksoon@gmail.com" 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

[gonecrazybacksoon@gmail.com]

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
>
>
>
>
> "gonecrazybacksoon@gmail.com" 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