Label in Excel... change caption from VB
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 |
Label in Excel... change caption from VB
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 |
Label in Excel... change caption from VB
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 |
All times are GMT +1. The time now is 09:54 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com