Skip to main content
4 de 4
replaced http://stackoverflow.com/ with https://stackoverflow.com/

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):

inserir a descrição da imagem aqui

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.

Luiz Vieira
  • 34,5mil
  • 6
  • 91
  • 160