Excel Adicionar textbox automaticamente no userform

[Miguelriedel]

Boa tarde, alguém sabe como faço para adicionar textbox/combobox no userform automaticamente?

 

Quando clicar nesse botão, preciso que adione uma nova linha dessas

 

E fique dessa maneira

 

[AfonsoMira]

Boas, @Miguelriedel
 

Seria algo deste género:
 

Dim NovaTextBox As Control

Set NovaTextBox = Me.Controls.Add("Forms.TextBox.1", "NovaTextBoxTeste", True)

With NovaTextBox
    .Width = 90
    .Height = 30
    .Top = 36
    .Left = 66
End With

 

[Edson Luiz Branco]

Uma sugestão @Miguelriedel , caso você já possa prever a quantidade máxima de itens que no limite poderiam surgir, seria em Tempo de Design inserir todos os controles nas respectivas posições mas deixá-los com a propriedade Visible = False e a cada nova inserção tornar Visible = True para revelar a respectiva linha de controles anteriormente oculta.

 

A vantagem aqui é que os eventos desses controles seriam programáveis já em Tempo de Design. Por exemplo: você não conseguiria programar o evento Click de um botão "Lançar Insumos" recém adicionado (em Tempo de Execução) se ele ainda não estiver presente no UserForm.

Mesmo que você já tenha o código pra ele digitado no VBE, pelo fato do objeto não existir no momento em que o VBA compila seu código, o bloco de código é simplesmente ignorado e tratado como um mero texto.

 

Caso isso não seja possível, para que novos controles sejam adicionados em Tempo de Execução e ainda assim reajam a eventos, é necessário recorrer a criação de Classes para essas famílias de controles (Módulo de Classe).