¿Cómo controlar qué punto de una gráfica selecciono?

Sub Macro1()
Range("A1").Value = Selection.Text
Application.OnKey "{F4}", "Macro1"
End Sub


Copia eso en un módulo, luego selecciona el punto que desees y presiona F4,
selecciona otro punto, F4, etc... y así... obvio el Rango puedes hacer que
varíe con alguna variable, etc...


"Antonio" escribió en el mensaje
news:

Hola a todos.

Estoy haciendo una hoja de Excel 2000 con una gráfica, y me gustaría saber
cómo puedo hacer (programando) que escriba en una celda el valor del punto
de la gráfica sobre el que hago clic.

¿Es esto posible? Si no es así, que p. ej. al pulsar un botón, me dijese

qué

punto de esa gráfica está seleccionado para extraer su valor.

El propio Excel lo hace, pues al seleccionar un punto de una gráfica me da
sus coordenadas, pero no encuentro una forma de hacerlo yo :(

Muchas gracias por adelantado, y un saludo.

Antonio

Muchas gracias José Luis, pero si bien cuando lo que tengo seleccionado es
una casilla ese código funciona correctamente, si lo que selecciono es un
punto de mi gráfica salta el error de "el objeto no admite esa propiedad o
método" (al intentar hacer Range("A1").Value = Selection.Text) :-(

Si se te ocurre (o a cualquier otro, por supuesto) cómo solucionarlo, lo
agradecería eternamente :-)

Un saludo,

Antonio


"JoseLuisArg" <ForosYListas(arroba)jlf.com.ar> escribió en el mensaje
news:OP%

Sub Macro1()
Range("A1").Value = Selection.Text
Application.OnKey "{F4}", "Macro1"
End Sub


Copia eso en un módulo, luego selecciona el punto que desees y presiona

F4,

selecciona otro punto, F4, etc... y así... obvio el Rango puedes hacer que
varíe con alguna variable, etc...


"Antonio" escribió en el mensaje
news:
> Hola a todos.
>
> Estoy haciendo una hoja de Excel 2000 con una gráfica, y me gustaría

saber

> cómo puedo hacer (programando) que escriba en una celda el valor del

punto

> de la gráfica sobre el que hago clic.
>
> ¿Es esto posible? Si no es así, que p. ej. al pulsar un botón, me dijese
qué
> punto de esa gráfica está seleccionado para extraer su valor.
>
> El propio Excel lo hace, pues al seleccionar un punto de una gráfica me

da

> sus coordenadas, pero no encuentro una forma de hacerlo yo :(
>
> Muchas gracias por adelantado, y un saludo.
>
> Antonio
>
>

Yo tengo hecho un ejemplo que no hace exactamente lo que necesitas, pero quizás te sirva:

http://www.excelsp.com/ejemplos/gra...eccion.xls

Si pones la siguiente instrucción:

MsgBox rng.Cells(Arg2).Address

en el módulo de clase, entre las instrucciones

rng.Cells(Arg2).Select

y

End If

te aparecerá un mensaje con la dirección de la celda a la que corresponde el punto del gráfico sobre el que se ha pinchado.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Antonio" escribió en el mensaje news:%23bwv$

Muchas gracias José Luis, pero si bien cuando lo que tengo seleccionado es
una casilla ese código funciona correctamente, si lo que selecciono es un
punto de mi gráfica salta el error de "el objeto no admite esa propiedad o
método" (al intentar hacer Range("A1").Value = Selection.Text) :-(

Si se te ocurre (o a cualquier otro, por supuesto) cómo solucionarlo, lo
agradecería eternamente :-)

Un saludo,

Antonio

¡Pues claro que me sirve! ¡genial!

¡Muchísimas gracias, Fernando! :-)
Un saludo,

Antonio


"Fernando Arroyo" escribió en el mensaje
news:
Yo tengo hecho un ejemplo que no hace exactamente lo que necesitas, pero
quizás te sirva:

http://www.excelsp.com/ejemplos/gra...eccion.xls

Si pones la siguiente instrucción:

MsgBox rng.Cells(Arg2).Address

en el módulo de clase, entre las instrucciones

rng.Cells(Arg2).Select

y

End If

te aparecerá un mensaje con la dirección de la celda a la que corresponde el
punto del gráfico sobre el que se ha pinchado.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Antonio" escribió en el mensaje
news:%23bwv$

Muchas gracias José Luis, pero si bien cuando lo que tengo seleccionado es
una casilla ese código funciona correctamente, si lo que selecciono es un
punto de mi gráfica salta el error de "el objeto no admite esa propiedad o
método" (al intentar hacer Range("A1").Value = Selection.Text) :-(

Si se te ocurre (o a cualquier otro, por supuesto) cómo solucionarlo, lo
agradecería eternamente :-)

Un saludo,

Antonio