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

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

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.

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

Conforme Mensagem nº4.

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