Procedimiento repetitivo

[Benito Bartolomé]

Hola a todos;

Tengo una duda que no se como resolver y me gustaría salir de dudas.

En un formulario he puesto a modo de prueba 18 labels y un botón que al ejecutarlo le quita el color de fondo a cada label.

Lo que no sé es si es posible mediante un ciclo que controle el nombre de cada label y así evitar repetir tantas veces el mismo procedimiento.

El procedimiento es el siguiente y lo pongo así porque no deja insertar código:

Option Explicit
Private Sub CommandButton1_Click()
'   ¿Hay alguna manera para mediante una variable o función para no repetir
'   "Me.Label_ 1 ---> 18" veces?

    Me.Label1.BackStyle = fmBackStyleTransparent
    Me.Label2.BackStyle = fmBackStyleTransparent
    Me.Label3.BackStyle = fmBackStyleTransparent
    Me.Label4.BackStyle = fmBackStyleTransparent
    Me.Label5.BackStyle = fmBackStyleTransparent
    Me.Label6.BackStyle = fmBackStyleTransparent
    Me.Label7.BackStyle = fmBackStyleTransparent
    Me.Label8.BackStyle = fmBackStyleTransparent
    Me.Label9.BackStyle = fmBackStyleTransparent
    Me.Label10.BackStyle = fmBackStyleTransparent
    Me.Label11.BackStyle = fmBackStyleTransparent
    Me.Label12.BackStyle = fmBackStyleTransparent
    Me.Label13.BackStyle = fmBackStyleTransparent
    Me.Label14.BackStyle = fmBackStyleTransparent
    Me.Label15.BackStyle = fmBackStyleTransparent
    Me.Label16.BackStyle = fmBackStyleTransparent
    Me.Label17.BackStyle = fmBackStyleTransparent
    Me.Label18.BackStyle = fmBackStyleTransparent

End Sub

Gracias y saludos.

 

Macro.xlsm

[DiegoPC]

Hola

Reemplaza tu código por este otro

Dim C As Control
For Each C In Me.Controls
    If TypeName(C) = "Label" Then C.BackStyle = fmBackStyleTransparent
Next

 

[Benito Bartolomé]

Gracias @DiegoPC

Estuve trabajando con el For Each pero no lo lograba. Imaginaba que ese era el camino pero me daba error en la composición del código. Muchas gracias.