Olá pessoal.

Como fazer uma função para que diversos botões executem o código abaixo:

Dim Xm As Single
Dim Ym As Single

Xm = X
Ym = Y

marca.Visible = True
marca.BackColor = RGB(255, 0, 0)
marca.Left = Xm - 50
marca.Top = Ym - 50
marca.Width = 100
marca.Height = 100

Os botões estão no mesmo formulário.

Obrigado.

Public Function Teste()
Dim Xm As Single
Dim Ym As Single

Xm = X
Ym = Y

marca.Visible = True
marca.BackColor = RGB(255, 0, 0)
marca.Left = Xm - 50
marca.Top = Ym - 50
marca.Width = 100
marca.Height = 100
End Function

No evento clicar do botao

call teste()

quote:

fazer uma função para que diversos botões executem o código

se vc colocar este codigo em função e chamalá no onclic do botão não funciona? Desculpe se a dica é besta, nem sei se vc tentou isto mas é oq ue eu faria...
Boa sorte!

Obrigado.

Só que agora está dando erro de "O objeto é obrigatório" Para o retângulo marca que está no formulário.

Tem como resolver isto?

voce tem que declarar a variavel marca.
Dim marca as ?

tentei isso
Dim marca As Property
mas não funcionou alguem se habilita a ajudar o colega?

Olá

Pelo que entendi, ao clicar em qualquer botão (evento _Click), o processamento passará para a sub Teste - não precisa ser função porque a mesma não retorna valor. Para isso é necessário que esta sub referencie o botão que a ativou. Esta referência é feita declarando uma variável do tipo CommandButton na lista de parâmetros da sub:

Public Sub Teste(marca as CommandButton)
Dim Xm As Single
Dim Ym As Single

Xm = X
Ym = Y

marca.Visible = True
marca.BackColor = RGB(255, 0, 0)
marca.Left = Xm - 50
marca.Top = Ym - 50
marca.Width = 100
marca.Height = 100

End Sub

Na chamada desta sub, basta colocar o nome do botão:

Private sub btnQualquer_Click
teste Me.btnQualquer
End Sub

Espero que funcione.

Atenciosamente,
Tiago

Obrigado pessoal, deu certo. Valeu.