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

#11 Héctor Miguel
20/05/2005 - 04:50 | Informe spam
hola, Luis !

... me ha ido bien para una cara y una celda
... pero... tengo 6 caras que deben cambiar según sean 6 celdas (d1,d2,etc)
... como se replicaria el codigo para esto?



solo agrega un par de caras [una que se oculta y otra que se muestra] para cada celda [p.e.]
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Calculate()
With Me.ChartObjects(1).Chart
.Shapes("Sonrie 1").Visible = (Me.Range("d1") > 0)
.Shapes("Triste 1").Visible = (Me.Range("d1") < 0)
.Shapes("Sonrie 2").Visible = (Me.Range("d2") > 0)
.Shapes("Triste 2").Visible = (Me.Range("d2") < 0) ' etc. '
End With
End Sub

si cualquier duda... comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#12 LUIS MENENDEZ
20/05/2005 - 15:42 | Informe spam
Perfecto , muchas gracias por todo este tutorial Héctor.
"Héctor Miguel" escribió en el mensaje
news:
hola, Luis !

... me ha ido bien para una cara y una celda
... pero... tengo 6 caras que deben cambiar según sean 6 celdas
(d1,d2,etc)
... como se replicaria el codigo para esto?



solo agrega un par de caras [una que se oculta y otra que se muestra] para
cada celda [p.e.]
en el modulo de codigo de 'esa' hoja ==> Private Sub Worksheet_Calculate()
With Me.ChartObjects(1).Chart
.Shapes("Sonrie 1").Visible = (Me.Range("d1") > 0)
.Shapes("Triste 1").Visible = (Me.Range("d1") < 0)
.Shapes("Sonrie 2").Visible = (Me.Range("d2") > 0)
.Shapes("Triste 2").Visible = (Me.Range("d2") < 0) ' etc. '
End With
End Sub

si cualquier duda... comentas?
saludos,
hector.

Respuesta Responder a este mensaje
#13 Ailatan
08/07/2005 - 09:48 | Informe spam
Hola, Héctor,

Yo tengo algo parecido con un cuadro de texto, pero quiero que en el cuadro
de texto salga, en lugar de un valor que haya en una celda, el resultado de
una división entre los valores de dos celdas.

He probado a poner Å/C8 , pero me dice: "El texto introducido no es una
referencia válida o un nombre definido". ¿Qué puedo hacer?

Salu2
Respuesta Responder a este mensaje
#14 Héctor Miguel
08/07/2005 - 20:42 | Informe spam
hola, Ailatan !

... tengo algo parecido con un cuadro de texto
... quiero que... salga, en lugar de un valor... en una celda, el resultado de una division entre... dos celdas.
... poner Å/C8... me dice: "El texto introducido no es una referencia valida o un nombre definido".



[hasta donde se] para que un cuadro de texto [donde sea que este incriustado] 'contenga' un resultado 'especifico'...
-> es 'necesario' que dicho resultado pueda 'ser tomado' de una 'referencia valida' [nombre con/]referencia a una celda
-> 'tendras que'...
a) hacer la operacion [Å/c8] ->en otra celda<- [y seleccionando el cuadro de texto]...
b) 'indicarle' [en la barra de formulas] que 'tome de...' [o 'apunte a'...] 'esa' celda ;)

si cualquier duda... comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#15 Ailatan
11/07/2005 - 09:59 | Informe spam
Muchas gracias, Héctor!
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida