Copying labels to Userform at runtime.

[Henry]

I'm trying to set up an array of labels on a form at runtime.
The size of the array is determined from a textbox input at the top of the
form.
The sort of thing I want is like a blank crossword grid, where I can adjust
the caption in each label later to be 1 letter.
I've tried to copy a label and then paste it, but VBA doesn't allow this.
Has anyone any suggestions on how to achieve this?

TIA
Henry

[Chip Pearson]

Try something like the following. Change the various properties
to meet your needs.

Dim Ctrl As MSForms.Control
Set Ctrl = UserForm1.Controls.Add("Forms.Label.1", "Label1",
True)
Ctrl.Height = 10
Ctrl.Width = 10
Ctrl.Top = 10
Ctrl.Left = 10
Ctrl.Caption = "A"
UserForm1.Show


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Henry" <henry.best1@ntlworld.com> wrote in message
news:9hHme.1408$ci4.1361@newsfe6-win.ntli.net...
> I'm trying to set up an array of labels on a form at runtime.
> The size of the array is determined from a textbox input at the
> top of the form.
> The sort of thing I want is like a blank crossword grid, where
> I can adjust the caption in each label later to be 1 letter.
> I've tried to copy a label and then paste it, but VBA doesn't
> allow this.
> Has anyone any suggestions on how to achieve this?
>
> TIA
> Henry
>

[Henry]

Thanks Chip,

The Label takes on the default colours of the form.
All I need now is to change the backcolor, forecolor and border for it to be
as I want.
(White, Black and a black border)
I cannot seem to change them from VBA like a normal Label.

Henry

"Chip Pearson" <chip@cpearson.com> wrote in message
news:%23q2qGNVZFHA.3572@TK2MSFTNGP12.phx.gbl...
> Try something like the following. Change the various properties to meet
> your needs.
>
> Dim Ctrl As MSForms.Control
> Set Ctrl = UserForm1.Controls.Add("Forms.Label.1", "Label1", True)
> Ctrl.Height = 10
> Ctrl.Width = 10
> Ctrl.Top = 10
> Ctrl.Left = 10
> Ctrl.Caption = "A"
> UserForm1.Show
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting, LLC
> www.cpearson.com
>
>
>
>
> "Henry" <henry.best1@ntlworld.com> wrote in message
> news:9hHme.1408$ci4.1361@newsfe6-win.ntli.net...
>> I'm trying to set up an array of labels on a form at runtime.
>> The size of the array is determined from a textbox input at the top of
>> the form.
>> The sort of thing I want is like a blank crossword grid, where I can
>> adjust the caption in each label later to be 1 letter.
>> I've tried to copy a label and then paste it, but VBA doesn't allow this.
>> Has anyone any suggestions on how to achieve this?
>>
>> TIA
>> Henry
>>
>
>

[Chip Pearson]

Use the ForeColor and BackColor properties of the Ctrl object.

Ctrl.ForeColor = RGB(0, 0, 0)
Ctrl.BackColor = RGB(255, 255, 255)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Henry" <henry.best1@ntlworld.com> wrote in message
news:QNLme.2602$%21.229@newsfe2-gui.ntli.net...
> Thanks Chip,
>
> The Label takes on the default colours of the form.
> All I need now is to change the backcolor, forecolor and border
> for it to be as I want.
> (White, Black and a black border)
> I cannot seem to change them from VBA like a normal Label.
>
> Henry
>
> "Chip Pearson" <chip@cpearson.com> wrote in message
> news:%23q2qGNVZFHA.3572@TK2MSFTNGP12.phx.gbl...
>> Try something like the following. Change the various
>> properties to meet your needs.
>>
>> Dim Ctrl As MSForms.Control
>> Set Ctrl = UserForm1.Controls.Add("Forms.Label.1", "Label1",
>> True)
>> Ctrl.Height = 10
>> Ctrl.Width = 10
>> Ctrl.Top = 10
>> Ctrl.Left = 10
>> Ctrl.Caption = "A"
>> UserForm1.Show
>>
>>
>> --
>> Cordially,
>> Chip Pearson
>> Microsoft MVP - Excel
>> Pearson Software Consulting, LLC
>> www.cpearson.com
>>
>>
>>
>>
>> "Henry" <henry.best1@ntlworld.com> wrote in message
>> news:9hHme.1408$ci4.1361@newsfe6-win.ntli.net...
>>> I'm trying to set up an array of labels on a form at runtime.
>>> The size of the array is determined from a textbox input at
>>> the top of the form.
>>> The sort of thing I want is like a blank crossword grid,
>>> where I can adjust the caption in each label later to be 1
>>> letter.
>>> I've tried to copy a label and then paste it, but VBA doesn't
>>> allow this.
>>> Has anyone any suggestions on how to achieve this?
>>>
>>> TIA
>>> Henry
>>>
>>
>>
>
>

[Henry]

Thanks Chip,

Now working fine.

Henry


"Chip Pearson" <chip@cpearson.com> wrote in message
news:e2thOjiZFHA.2496@TK2MSFTNGP14.phx.gbl...
> Use the ForeColor and BackColor properties of the Ctrl object.
>
> Ctrl.ForeColor = RGB(0, 0, 0)
> Ctrl.BackColor = RGB(255, 255, 255)
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting, LLC
> www.cpearson.com
>
>
> "Henry" <henry.best1@ntlworld.com> wrote in message
> news:QNLme.2602$%21.229@newsfe2-gui.ntli.net...
>> Thanks Chip,
>>
>> The Label takes on the default colours of the form.
>> All I need now is to change the backcolor, forecolor and border for it to
>> be as I want.
>> (White, Black and a black border)
>> I cannot seem to change them from VBA like a normal Label.
>>
>> Henry
>>
>> "Chip Pearson" <chip@cpearson.com> wrote in message
>> news:%23q2qGNVZFHA.3572@TK2MSFTNGP12.phx.gbl...
>>> Try something like the following. Change the various properties to meet
>>> your needs.
>>>
>>> Dim Ctrl As MSForms.Control
>>> Set Ctrl = UserForm1.Controls.Add("Forms.Label.1", "Label1", True)
>>> Ctrl.Height = 10
>>> Ctrl.Width = 10
>>> Ctrl.Top = 10
>>> Ctrl.Left = 10
>>> Ctrl.Caption = "A"
>>> UserForm1.Show
>>>
>>>
>>> --
>>> Cordially,
>>> Chip Pearson
>>> Microsoft MVP - Excel
>>> Pearson Software Consulting, LLC
>>> www.cpearson.com
>>>
>>>
>>>
>>>
>>> "Henry" <henry.best1@ntlworld.com> wrote in message
>>> news:9hHme.1408$ci4.1361@newsfe6-win.ntli.net...
>>>> I'm trying to set up an array of labels on a form at runtime.
>>>> The size of the array is determined from a textbox input at the top of
>>>> the form.
>>>> The sort of thing I want is like a blank crossword grid, where I can
>>>> adjust the caption in each label later to be 1 letter.
>>>> I've tried to copy a label and then paste it, but VBA doesn't allow
>>>> this.
>>>> Has anyone any suggestions on how to achieve this?
>>>>
>>>> TIA
>>>> Henry
>>>>
>>>
>>>
>>
>>
>
>

[Philippe Léveillé]

I'm not sure I understand your problem... but you can try to fill in the
textbox_change() event with some code to do the rest...


"Henry" <henry.best1@ntlworld.com> a écrit dans le message de news:
9hHme.1408$ci4.1361@newsfe6-win.ntli.net...
> I'm trying to set up an array of labels on a form at runtime.
> The size of the array is determined from a textbox input at the top of the
> form.
> The sort of thing I want is like a blank crossword grid, where I can
> adjust the caption in each label later to be 1 letter.
> I've tried to copy a label and then paste it, but VBA doesn't allow this.
> Has anyone any suggestions on how to achieve this?
>
> TIA
> Henry
>