ayuda por favor

hola, daniel !

queria que en un userform con 6 label (label1,label2,...label6) y 6 textbox (textbox1,textbox2,...textbox6)
cuando pinche en cualquier parte del userform se ponga en esta el label1
y luego en el textbox1 me de la altura y en el textbox2 el ancho de donde se encuentra el label1
luego hago click en otro punto del userform y me haga lo mismo lo unico cambiando los datos al textbox3 y al textbox4.

tu consulta ha dejado algunos detalles 'en el tintero' :D [p.e.]
1) para la informacion de donde se ha 'movido' el Label1, ya se necesitan DOS textboxes [y solo tienes seis] -???-
2) como 'decirle' al codigo que cuando pinches en cualquier lado del userform se debe 'mover' el Label1... o el Label2... o el ??????
3) [seguramente] necesitaras de algun 'truco' [o alguna variable] para que 'en algun momento' NO SE MUEVA el control Label_X :))

[en via de mientras] con el siguiente codigo... y un formulario con SOLO UN label y 2 textboxes... [haz algunas pruebas y]...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

== en el modulo de codigo del formulario =Dim Arriba As Single, Izquierda As Single
Private Sub UserForm_Click()
Label1.Top = Arriba
Label1.Left = Izquierda
TextBox1 = Arriba
TextBox2 = Izquierda
End Sub
Private Sub UserForm_MouseMove( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Arriba = Y
Izquierda = X
End Sub

hola Hector Miguel
muchas gracias por tu ayuda yo creo q la macro me va a funcionar
muy bien
cualquier cosa te comento

un saludo y mil gracias hector miguel
saludos daniel
"Héctor Miguel" escribió en el mensaje
news:

hola, daniel !

queria que en un userform con 6 label (label1,label2,...label6) y 6
textbox (textbox1,textbox2,...textbox6)
cuando pinche en cualquier parte del userform se ponga en esta el label1
y luego en el textbox1 me de la altura y en el textbox2 el ancho de donde
se encuentra el label1
luego hago click en otro punto del userform y me haga lo mismo lo unico
cambiando los datos al textbox3 y al textbox4.

tu consulta ha dejado algunos detalles 'en el tintero' :D [p.e.]
1) para la informacion de donde se ha 'movido' el Label1, ya se necesitan
DOS textboxes [y solo tienes seis] -???-
2) como 'decirle' al codigo que cuando pinches en cualquier lado del
userform se debe 'mover' el Label1... o el Label2... o el ??????
3) [seguramente] necesitaras de algun 'truco' [o alguna variable] para que
'en algun momento' NO SE MUEVA el control Label_X :))

[en via de mientras] con el siguiente codigo... y un formulario con SOLO
UN label y 2 textboxes... [haz algunas pruebas y]...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

== en el modulo de codigo del formulario => Dim Arriba As Single, Izquierda As Single
Private Sub UserForm_Click()
Label1.Top = Arriba
Label1.Left = Izquierda
TextBox1 = Arriba
TextBox2 = Izquierda
End Sub
Private Sub UserForm_MouseMove( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Arriba = Y
Izquierda = X
End Sub

hola Hector miguel
la macro que me as puesto es la que necesitaba ahora lo
que necesito que haga es que cuando
haga un segundo click en otro sitio me hiciese lo mismo
lo unico que con otro label y en los textbox3 y textbox4

un saludo y muchas gracias
daniel
"daniel" escribió en el mensaje
news:

hola Hector Miguel
muchas gracias por tu ayuda yo creo q la macro me va a funcionar
muy bien
cualquier cosa te comento

un saludo y mil gracias hector miguel
saludos daniel
"Héctor Miguel" escribió en el mensaje
news:

hola, daniel !

queria que en un userform con 6 label (label1,label2,...label6) y 6
textbox (textbox1,textbox2,...textbox6)
cuando pinche en cualquier parte del userform se ponga en esta el label1
y luego en el textbox1 me de la altura y en el textbox2 el ancho de
donde se encuentra el label1
luego hago click en otro punto del userform y me haga lo mismo lo unico
cambiando los datos al textbox3 y al textbox4.

tu consulta ha dejado algunos detalles 'en el tintero' :D [p.e.]
1) para la informacion de donde se ha 'movido' el Label1, ya se necesitan
DOS textboxes [y solo tienes seis] -???-
2) como 'decirle' al codigo que cuando pinches en cualquier lado del
userform se debe 'mover' el Label1... o el Label2... o el ??????
3) [seguramente] necesitaras de algun 'truco' [o alguna variable] para
que 'en algun momento' NO SE MUEVA el control Label_X :))

[en via de mientras] con el siguiente codigo... y un formulario con SOLO
UN label y 2 textboxes... [haz algunas pruebas y]...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

== en el modulo de codigo del formulario =>> Dim Arriba As Single, Izquierda As Single
Private Sub UserForm_Click()
Label1.Top = Arriba
Label1.Left = Izquierda
TextBox1 = Arriba
TextBox2 = Izquierda
End Sub
Private Sub UserForm_MouseMove( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Arriba = Y
Izquierda = X
End Sub