Inserindo Objetos em Tempo de Execução
Enviado: 11 Mai 2016 às 20:55
Olá, Consigo inserir objetos diretamente em um formulário porém estou precisando inserir objetos, por exemplo um commandbutton, em um frame e apesar de pesquisar bastante não consegui. A instrução abaixo é a que consigo inserir um objeto em um form VBA
Private Sub Adiciona_TextBox()
'declara no novo controle
Dim novoTextBox As Control
'instancia o novo controle do tipo textbox e o adiciona ao UserForm
Set novoTextBox = Me.Controls.Add("Forms.TextBox.1", "NovoTextBox", True)
'seta algumas propriedades
With novoTextBox
.Width = 72
.Height = 18
.Top = 20
.Left = 20
End With
End Sub
Private Sub Adiciona_TextBox()
'declara no novo controle
Dim novoTextBox As Control
'instancia o novo controle do tipo textbox e o adiciona ao UserForm
Set novoTextBox = Me.Controls.Add("Forms.TextBox.1", "NovoTextBox", True)
'seta algumas propriedades
With novoTextBox
.Width = 72
.Height = 18
.Top = 20
.Left = 20
End With
End Sub