Em apoio à solução da questão "Como herdar um formulário em VBA?", executei as orientações e exemplos do site support.microsoft.com/en-us/kb/204330 com a finalidade de gerar formulários dinamicamente.
O código abaixo refere-se a um formulário com dois botões que acionam as rotinas dos exemplos.
Nos remarks estão descritos os erros ocorridos, porém, por falta de maior experiência no VBA não consegui resolver os problemas.
Parecem estar relacionados à necessidade de adaptação de versão, mas também não sei como resolver neste caso, meu Excel é o 2016 (Microsof Office 365).
Há dois remarks no código que são de testes dos exemplos que executei e desativei após a ocorrência dos erros, basta tirar os remarks e executar para testar cada um.
Uma observação, a indicação de ativar a referência Microsoft Visual Basic for Applications Extensibility foi feita anteriormente aos testes, conforme orientação do site.
Private Sub CommandButton1_Click()
VbeCompName
End Sub
Sub VbeCompName()
'MsgBox ActiveDocument.VBProject.VBComponents.Count
'Erro: O objeto é obrigatório
'MsgBox Application.VBE.ActiveVBProject.VBComponents.Count
'Erro: O acesso de programação ao projeto do Visual Basic não é confiável
X = VBE.ActiveVBProject.VBComponents.Count
'Erro: O objeto é obrigatório
For I = 1 To X
MsgBox VBE.ActiveVBProject.VBComponents(I).Name
Next I
End Sub
Private Sub CommandButton2_Click()
BuildMyForm
End Sub
Sub BuildMyForm()
Set mynewform = _
VBE.ActiveVBProject.VBComponents.Add(ComponentType:=vbext_ct_MSForm)
'Erro: O objeto é obrigatório
With mynewform
.Properties("Height") = 246
.Properties("Width") = 616
.Name = "HelloWord"
.Properties("Caption") = "This is a test"
End With
End Sub
O que está errado ou faltando neste caso? Existe algum exemplo funcional similar?