Há algumas alternativas. Você pode tentar criar dinamicamente uma nova função de tratamento de click para cada label, utilizando o formato <nome do controle>_Click()
, mas pra isso você precisará:
1 - Definir o nome dos controles na chamada de Me.Controls.Add
(é mais um parâmetro após o progID da classe). Como o código vai precisar referenciar o objeto pelo nome, não basta só definir o "caption". O código abaixo faz essa definição de nome (apesar de ele não realmente precisar).
2 - Acessar o projeto do VBA para inserir as linhas de código manualmente.
Para fazer o item 2, é só olhar esta minha outra resposta aqui no SOPT. O exemplo lá insere um comentário, e você vai ter que inserir todo o código da(s) sua(s) função(ões).
Vale notar que essa abordagem tem sérios(as) problemas/dificuldades.
Primeiramente, você vai ter que escrever o cóigo da função que vai ser
chamada no evento de clique dentro de outro código, tornando-o menos
legível e mais difícil de manter. Em segundo lugar, isso altera o
projeto VBA, de forma que vc vai precisar salvar o arquivo Excel a
cada execução. Em terceiro lugar, vai ficar difícil remover labels
porque você vai ter que procurar no código pelo nome exato da função,
achar o end sub
exato dela para remover, etc. E finalmente (e
principalmente), isso requer a habilitação de uma configuração que
gera potencial problema de segurança (leia mais na resposta
referenciada).
Uma alternativa melhor (cuja fonte original é esta resposta do SOEN) é construir uma classe (um módulo de classe, pra ser mais exato) e fazer ela tratar todos os eventos de clique para todos os labels. Faça assim:
1 - Crie um módulo de classe com qualquer nome que desejar (no meu exemplo, eu chamei de LabelHandler
).
2 - Nele, coloque o seguinte código:
Public WithEvents Ctrl As MSForms.Label
Private Sub Ctrl_Click()
MsgBox "Você clicou no label de nome " & Ctrl.Name
End Sub
Esse código simplesmente declara uma propriedade/atributo da classe chamado Ctrl
(novamente, chame como mais bem entender - só lembre-se de alterar a função de tratamento do click de forma apropriada: <nome da propriedade>_Click()
) e implementa o código genérico para tratar o click no objeto definido naquela propriedade.
3 - No seu código original, mova a matriz de controles (labels) para fora do escopo da sua função. Ela precisa estar fora do escopo porque precisa continuar existindo depois que a função terminar. Além disso, faça essa matriz guardar instâncias da nova classe que criou (LabelHandler
, no meu exemplo) ao invés de diretamente do Label criado.
4 - Por fim, adicione o controle (label) criado à propriedade da nova classe de tratamento. Eis o código:
Dim Labels() As New LabelHandler
Private Sub CriaLabels(ByVal QuantidadeDeLabels As Integer)
Dim i As Integer
Dim Label As Control
ReDim Labels(0 To QuantidadeDeLabels - 1)
For i = 0 To QuantidadeDeLabels - 1
Set Label = Me.Controls.Add("Forms.Label.1", "NewLabel" & i)
With Label
.Caption = "NewLabel" & i
.Top = 50 * i
.Left = 50
End With
Set Labels(i).Ctrl = Label
Next i
End Sub
Esse código gera o seguinte resultado (para um teste criando 4 labels - o botão de título "Teste" foi somente utilizado para invocar CriaLabels 4
):
Observe que o código genérico executado na classe LabelHandler
pode tratar diferenças com base no objeto clicado verificando o nome dele, por exemplo.
Nota Final: No futuro, procure identar o código. Facilita a sua própria leitura e manutenção, e também de quem vai tentar te ajudar
por aqui.