Este fórum está sendo desativado

[kiko]

Bom dia à todos, alguém conhece uma Function ou Sub que configure todos os componentes de um formulário de uma vez só??
Exemplo:
Componente com Name “TextBox”
Fundo cor tal
Fonte Arial 12
......etc
Componente com Name “ComboBox”
Fundo cor tal
Fonte Arial 12
......etc

Eu sei que poderia configurar os componentes em um form qualquer e depois copia-los para os Form desejado, mas se tivesse que dar manutenção em um projeto que tem por exemplo 40 FORM’s ficaria mais difícil, não é?
Desde já agradeço e fico no aguardo.

[JCabral]

Experimente uma instrução deste tipo

Código: Selecionar todos

Private Sub UserForm_Initialize()
    Dim ctrl As Control
    For Each ctrl In UserForm1.Controls
        If TypeName(ctrl) = "ComboBox" Then
            ctrl.BackColor = &H80000002
        ElseIf TypeName(ctrl) = "TextBox" Then
            ctrl.BackColor = vbRed
        End If
    Next ctrl

End Sub

[kiko]

JCabral muitíssimo obrigado pela sua disposição em ajudar, mas pela ideia que você me mostrou vou transforma-la em uma função, pois como disse "um projeto que tem por exemplo 40 FORM’s" fica difícil mas com função é bem mais fácil. Mais uma vez muito obrigado e estarei clicando no OBRIGADO.