[Resolvido]Propriedades de controle em uma mesma linha no VBA

Olá pessoal!

Tenho no meu form vários controles e preciso definir algumas das propriedades destes controles no VBA.

Então faço assim:

me.controle1.Left = x
me.controle1.Width = y
me.controle1.Height = w
e etc...

Desta forma, terei que fazer isso para todos os controles que desejo ajustar.
Pergunto: Não teria um forma de escrever somente as propriedades de um controle sem ter que mencionar repetidamente a expressão, por exemplo, 'me.controle1'?


grato

Bom dia,
quais são os tipos de controles que precisa alterar via VBA?

Bom dia.

Todos caixas de texto

Em um módulo:

Código:

Public Sub AlteraPropriedadesControles(Formulario As Form)
   
    For Each ctl In Formulario.Controls
        If ctl.ControlType = acTextBox Then
            ctl.Left = 200 'Pode ser o valor que quiser aqui, inclusive de uma variável
            ctl.Width = 2000 'Pode ser o valor que quiser aqui, inclusive de uma variável
            ctl.Height = 500 'Pode ser o valor que quiser aqui, inclusive de uma variável
        End If
    Next
   
End Sub

Para chamar a sub de qualquer formulário, basta:

Código:

AlteraPropriedadesControles Me

Se precisar alterar outras propriedade, basta adicioná-las ao If:
ctl.Top = xxx, por exemplo.

Entendi!

Mas, como faço para identificar um txt específico?

Ex: txtAluno, txtTurmas.

Dentro do IF, ponha outro if:

caso seja para um único:

Código:

If ctl.Name =  "txtAluno" Then
....
End If

Caso seja para mais de um:

Código:

If ctl.Name =  "txtAluno" Or ctl.Name = "txtTurma" Then
....
End If

Para evitar ter que escrever muito código,

Por exemplo, se alguns controle devem ter as mesmas propriedades, poderia no nome deles por um prefixo, tipo:

txt1alunos, txt1turmas, txt1Classe, etc...
txt2Obs, txt2cpf, txt2idade, etc...

Digamos que todos os controles que o nome contiver no 4º caractere o número 1, aplica propriedades que lhes forem comuns, o mesmo para os controles que em seu nome o  4º caractere seja o número  2.

Código:

if mid(ctl.name, 4,1) = 1 then
   ctl.Left = 200
   ctl.Width = 2000
   ctl.Height = 500
ElseIf mid(ctl.name, 4,1) = 2
   ctl.Left = 300
   ctl.Width = 5000
   ctl.Height = 700
end if

Sempre dentro do IF: If ctl.ControlType = acTextBox Then

ok. Acho muito boa a sua sugestão. Darei um retorno assim que experimentar aqui.

grato

Estou seguindo.

Como faço para chamar esta sub no 'ao carregar formulário'?

Conforme Mensagem nº4.

Foi mal. Desculpa.

Está dentro do que eu esperava. A partir daqui abre-se muitas possibilidades. Obrigado!!

Ótimo que lhe foi útil! Não esqueças de marcar como resolvido!

Serviu-me muito.