Text Box dentro de un Gráfico

17/05/2005 - 16:16 por LUIS MENENDEZ | Informe spam
Hola Amigos , tengo un gráfico que , a parte de las cifras de datos , tiene
otras cantidades puestas como cuadro de texto ¿como puedo hacer que en esos
cuadros de texto me salga el resultado de una celda para no tener que
cambiarlo manualmente?
Además , tengo caras dispersadas por el gráfico , unas son alegres cuando la
cifra es positiva y otras tristes cuando es negativa , de forma similar a la
pregunta anterior como podría referenciarlas al resultado de alguna celda
para no tener que cambiar las caras manualmente?

Gracias Mil.

Preguntas similare

Leer las respuestas

#6 LUIS MENENDEZ
18/05/2005 - 19:24 | Informe spam
Estimado Héctor , el problema es que no se como meter la autoforma en la
celda A1 por ejemplo para luego apuntar a ella como dices. Saludos Gracias.
"Héctor Miguel" escribió en el mensaje
news:
hola, Luis !

... con el texto me va bien, pongo el "=" en la barra, señalo la celda y
ya esta
... pero la autoforma no me deja señalarla porque... esta como en otro
plano [...]



-> las autoformas si estan en 'otro plano'... [en la capa de dibujo del
objeto que las contiene] ;)
sin embargo, si 'debieran permitirte' hacer el mismo 'truco' que con
los cuadros de texto :-(
de cualquier modo, puedes 'teclear en directo' [en la barra de
formulas]...
-> la referencia a la que necesitas que la autoforma quede 'apuntando'
[p.e.] ¡ o... =$A$1 o... =Hoja1!$A$1 [etc.] ;)

comentas?
saludos,
hector.

Respuesta Responder a este mensaje
#7 Héctor Miguel
19/05/2005 - 02:17 | Informe spam
hola, Luis !

... problema... no se como meter la autoforma en la celda A1 por ejemplo para luego apuntar a ella [...]



[ahora si que me has 'desconcertado'] :))
- no se trataba de autoformas incrustadas en un grafico ?
- porque quieres 'meter' la autoforma en una celda para [luego] 'apuntar' a la misma celda ?

comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#8 LUIS MENENDEZ
19/05/2005 - 08:26 | Informe spam
Hola Héctor , te explico. Efectivamente las autoformas están pegadas en un
gráfico , pero quiero que salga la autoforma "cara alegre" cuando el tex box
(que apunta a una celda y cuyo contenido viene de esta, como me enseñaste
ayer) es >0 y la autoforma "cara triste cuando" el tex box es negativo. Yo
había pensado que colocando las caras en una celda y con una función "si..."
o algo así, conseguiría no tener que cambiar las caras una a una cuando
cambian las tex box insertadas.

Se algo de VB por si se pudiese solucionar el tema por este camino y me
pudiseis orientar sobre el código necesario.

Gracias y Saludos

"Héctor Miguel" escribió en el mensaje
news:%
hola, Luis !

... problema... no se como meter la autoforma en la celda A1 por ejemplo
para luego apuntar a ella [...]



[ahora si que me has 'desconcertado'] :))
- no se trataba de autoformas incrustadas en un grafico ?
- porque quieres 'meter' la autoforma en una celda para [luego] 'apuntar'
a la misma celda ?

comentas?
saludos,
hector.

Respuesta Responder a este mensaje
#9 Héctor Miguel
19/05/2005 - 09:41 | Informe spam
hola, Luis !

... las autoformas están pegadas en un grafico... quiero que salga la autoforma
... "cara alegre" cuando el tex box que apunta a una celda... es >0
... "cara triste cuando" el tex box es negativo... habia pensado... las caras en una celda
... una funcion "si..." o algo asi, conseguiria no tener que cambiar las caras una a una
... se algo de VB por si se pudiese solucionar el tema por este camino y... el codigo necesario.



[creo que 'no queda de otra' que...] usando codigo en el evento '_calclate' de la hoja donde cambia 'la celda' :)
1.- ambas 'caritas' [las autoformas] YA deberan estar incrustadas en el grafico
2.- el codigo del ejemplo va a mostrar una y ocultar 'la otra' [segun si el vlor de 'una celda' es >0 o negativo] ;)
3.- estoy suponiendo que el grafico esta incrustado en la misma hoja y que 'la celda' es 'D6'
['tendras que' ajustar cambios donde sean requeridos o... comentar cuales son los objetos 'reales'] :))
4.- abre el editor de vba {alt}+{F11} o haz un 'click-derecho' sobre la pestaña con el nombre de 'esa' hoja y...
5.- copia/pega las siguientes lineas...
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Calculate()
With Me.ChartObjects(1).Chart
.Shapes("Autoforma 1").Visible = (Me.Range("d6") > 0)
.Shapes("Autoforma 2").Visible = (Me.Range("d6") < 0)
End With
End Sub

si cualquier duda [o la situacion 'real' es diferente de mis supuestos]... comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#10 LUIS MENENDEZ
19/05/2005 - 13:24 | Informe spam
Hola Héctor , me ha ido bien para una cara y una celda , pero en el gráfico
tengo 6 caras que deben cambiar según sean 6 celdas (d1,d2,etc) como se
replicaría el código para esto? Gracias y saludos

"Héctor Miguel" escribió en el mensaje
news:
hola, Luis !

... las autoformas están pegadas en un grafico... quiero que salga la
autoforma
... "cara alegre" cuando el tex box que apunta a una celda... es >0
... "cara triste cuando" el tex box es negativo... habia pensado... las
caras en una celda
... una funcion "si..." o algo asi, conseguiria no tener que cambiar las
caras una a una
... se algo de VB por si se pudiese solucionar el tema por este camino
y... el codigo necesario.



[creo que 'no queda de otra' que...] usando codigo en el evento
'_calclate' de la hoja donde cambia 'la celda' :)
1.- ambas 'caritas' [las autoformas] YA deberan estar incrustadas en el
grafico
2.- el codigo del ejemplo va a mostrar una y ocultar 'la otra' [segun si
el vlor de 'una celda' es >0 o negativo] ;)
3.- estoy suponiendo que el grafico esta incrustado en la misma hoja y que
'la celda' es 'D6'
['tendras que' ajustar cambios donde sean requeridos o... comentar
cuales son los objetos 'reales'] :))
4.- abre el editor de vba {alt}+{F11} o haz un 'click-derecho' sobre la
pestaña con el nombre de 'esa' hoja y...
5.- copia/pega las siguientes lineas...
en el modulo de codigo de 'esa' hoja ==> Private Sub Worksheet_Calculate()
With Me.ChartObjects(1).Chart
.Shapes("Autoforma 1").Visible = (Me.Range("d6") > 0)
.Shapes("Autoforma 2").Visible = (Me.Range("d6") < 0)
End With
End Sub

si cualquier duda [o la situacion 'real' es diferente de mis supuestos]...
comentas?
saludos,
hector.

Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida