Equivalentes de elementos de un gráfico en VBA

09/10/2003 - 21:19 por Anonimo | Informe spam
Amigos:

Ando queriendo armar un gráfico casi-totalmente automático, Con esto digo
que, a partir de ciertos datos numéricos, el formato tome valores a partir
del contenido de ciertas celdas que almaceno en otra hoja de datos (distinta
de la del gráfico). Por ejemplo:

- El valor medio del eje Y debe ser una celda que representa la media de la
muestra.
-Los valores máximos y mínimos deben ser celdas que contengan la media +/-
3*desvío estándar de la muestra, respectivamente.
- El intervalo de salto debe ser una celda que contiene el desvío estándar
de la muestra.

... y así seguido. Un ejemplo trivial se da cuando ponemos como título del
gráfico el valor de una celda a través de fórmula. No soy tan optimista como
para creer que todo lo demás se pueda resolver de la misma manera, pero
quizá, si me pudiera dar maña con los equivalentes VBA de estos parámetros
del gráfico, podría llegar a codificar algo.

Si la respuesta es muy trivial, y se soluciona con solamente leyendo la
ayuda, autorizo a que me insulten sin piedad, porque no lo pude encontrar.

Gracias mil.

Julio.

Preguntas similare

Leer las respuestas

#1 Manuel Romero
09/10/2003 - 22:58 | Informe spam
Crea el grafico manualmente y despues graba una macro cambiando las
caracteristicas del eje.

Despues ve al editor de VBA, busca la macro que grabaste y cambia los
valores que correspondan por las celdas que quieres

escribió en el mensaje
news:
Amigos:

Ando queriendo armar un gráfico casi-totalmente automático, Con esto digo
que, a partir de ciertos datos numéricos, el formato tome valores a partir
del contenido de ciertas celdas que almaceno en otra hoja de datos


(distinta
de la del gráfico). Por ejemplo:

- El valor medio del eje Y debe ser una celda que representa la media de


la
muestra.
-Los valores máximos y mínimos deben ser celdas que contengan la media +/-
3*desvío estándar de la muestra, respectivamente.
- El intervalo de salto debe ser una celda que contiene el desvío estándar
de la muestra.

... y así seguido. Un ejemplo trivial se da cuando ponemos como título del
gráfico el valor de una celda a través de fórmula. No soy tan optimista


como
para creer que todo lo demás se pueda resolver de la misma manera, pero
quizá, si me pudiera dar maña con los equivalentes VBA de estos parámetros
del gráfico, podría llegar a codificar algo.

Si la respuesta es muy trivial, y se soluciona con solamente leyendo la
ayuda, autorizo a que me insulten sin piedad, porque no lo pude encontrar.

Gracias mil.

Julio.


Respuesta Responder a este mensaje
#2 Héctor Miguel
10/10/2003 - 03:34 | Informe spam
Hola, Julio !

¿no te ha 'funcionado' la propuesta a tu consulta de sep-30 de: 'cotas parametrizables en grafico' ???

[solo por 'conmfirmar', me parece que los servidores 'andaban locos' por esas fechas] ;)

Saludos,
Héctor.
Respuesta Responder a este mensaje
#3 Anonimo
10/10/2003 - 13:16 | Informe spam
Héctor:

No se que habrá pasado por esas fechas, pero no apareció ni mi mensaje ni la
respuesta. Si es como decís que los servidores andaban loquitos, ahora
entiendo...

Julio.
Respuesta Responder a este mensaje
#4 Héctor Miguel
10/10/2003 - 17:11 | Informe spam
Hola, Julio !

... no aparecio ni mi mensaje ni la respuesta ... si los servidores andaban loquitos, ahora entiendo.



ni hablar :(( 'te pego' en seguida [un fragmento de] tu mensaje y la respuesta;)
==> ... asignar los valores ... en la escala del eje de un gráfico a una celda en particular?
1) El eje X me cruce en el valor promedio de la muestra.
2) El valor mínimo sea -3*(desvío estándar de la muestra)
3) El valor maximo sea +3*(desvío estándar de la muestra)
4) La unidad mayor y la unidad menor sea el desvío estándar de la muestra
La idea es que esto sea automático, y no andar cambiando a mano los valores [...]



==> 1.- suponiendo que deseas 'tomar' los valores de las siguientes celdas:
1) promedio => "E1" 2) minimo => "E2" 3) maximo => "E3" 4) desviacion => "E4"
2.- suponiendo que el grafico esta incrustado en 'la hoja' [y que se trata del grafico #1]
copia el siguiente codigo en el modulo de 'la hoja' ==Private Sub Worksheet_Calculate()
Static PrevMed As Double, PrevMin As Double, PrevMax As Double, PrevDesv As Double
With Me.ChartObjects(1)
If PredMed <> Range("e1") Then
.Chart.Axes(xlValue).CrossesAt = Range("e1")
PrevMed = Me.Range("e1")
End If
If PrevMin <> Range("e2") Then
.Chart.Axes(xlValue).MinimumScale = Range("e2")
PrevMin = Me.Range("e2")
End If
If PrevMax <> Range("e3") Then
.Chart.Axes(xlValue).MaximumScale = Range("e3")
PrevMax = Me.Range("e3")
End If
If PrevDesv <> Range("e4") Then
.Chart.Axes(xlValue).MajorUnit = Range("e4")
.Chart.Axes(xlValue).MinorUnit = Range("e4")
PrevDesv = Me.Range("e4")
End If
End With
End Sub

Saludos,
Héctor.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida