Tipo de Gráfico por Defecto

[sorrakis01]

Hola,

Tengo un gráfico con cambio de estilo rápido el cual puede ser de Barras o de Lineas. Lo que me interesa es, que cuando pulse un botón solo me aparezca el de barras y no me permita pulsar el botón de cambio de estilo rápido. Es decir, necesito que cuando pulse un botón desaparezca la opción de cambio de estilo rápido y se muestre un gráfico en concreto.

Si Existe alguna posibilidad de hacerlo mediante macro, sabe alguien que propiedad del gráfico habría que tratar?

Si existe alguna otra posibilidad también será bienvenida..... 🙂

Muchas Gracias a todos.

[etendero]

Hola Jordi,

No se si te he entendido bien. Quieres que con botones y no con el cambio rápido, poder mostrar el gráfico de barras o de líneas, ¿es así?.

En caso afirmativo, yo lo que te propongo es que le dupliques el gráfico y quites el cambio rápido. Uno de ellos lo dejas de barras y el otro de línea. Y después con un objeto de botón, actualices una variable que te permita mostrar u ocultar uno de los dos gráficos.

Si quieres, te puedo subir un ejemplo.

Un saludo y espero haberte ayudado.

[sorrakis01]

Hola Emilio,

Primero de todo muchas Gracias por tu respuesta. La opción que planteas es correcta, pero me interesa más la opción de poder habilitar o desabilitar la opción del cambio de estilo rápido y poder poner el gráfico que yo quiera por defecto.

No sé si existe alguna posibilidad mediante VBScript....

Gracias

[etendero]

Hola de nuevo,

La verdad es que lo tendría que investigar, pero yo te recomiendo que utilices una solución que no implique macros, ya que estos tienen incompatibilidades con el Server.

Sobre la solución que te comentaba antes, puedes dejar una de las dos gráficas con el cambio rápido y la otra no, y con el objeto de botón, seleccionar una gráfica en concreto (sin el cambio rápido) o la otra que tiene el cambio rápido.

¿En que momento te hace falta una de las dos como por defecto? Igual si detallas un poco más tu necesidad, te puedo dar otra solución.

Un saludo.

[sorrakis01]

Hola Emilio,

El gráfico en sí es un gráfico de 3 dimensiones (una de ellas condicionada, es decir que puede aparecer o no dependiendo de la selección previa del campo Ciclo. Cuando el campo ciclo no está seleccionado no hay problema ya que los gráficos se muestran bien con el cambio de estilo rápido.

Cuando selecciono el campo Ciclo el problema lo tengo en el gráfico de lineas, ya que solo me aparecen 2 de las 3 dimensiones, y en el gráfico de barras si que me aparecen las 3.

Es por ello que me gustaría saber (sin tener que hacer 2 gráficos) si existe la posibilidad que planteo...

Muchas Gracias

[etendero]

Personalmente, antes de utilizar una macro (si es que se puede), clonaría la gráfica.

Si mantener estas dos gráficas, se te hace pesado, puedes mover las expresiones a variables para no tener que modificarlas en varios sitios cada vez.

Puedes aprovechar precisamente la selección en el campo Ciclo, para hacer que te muestre una gráfica (barras) o la otra (cambio rápido), en vez de utilizar un objeto de botón para este menester.

Un saludo.

[sorrakis01]

Gracias Emilio,

Las gráfica la tengo en un contenedor junto con otras 6 gráficas/tablas....

Intentaré indagar a ver si existe alguna propiedad de los gráficos o del estilo rápido que me pueda ayudar.

Si no tendré que hacer lo que me indicas. Pongo tu respuesta como útil.

muchas Gracias de nuevo.

[sorrakis01 · Accepted solution]

Hola,

Me han pasado una API que soluciona mi problema. Espero que os ayude:

Disable Fast Chart

set chart = ActiveDocument.Sheets("Main").CreateBarChart (inabilito el create bar chart)

chart.AddDimension "ProductType" (no lo he añadido)

chart.AddExpression "sum(Amount)" (no lo he añadido)

set p = chart.GetProperties

p.GraphLayout.FastChange.Bar = true

p.GraphLayout.FastChange.Line = true

p.GraphLayout.FastChange.Combo = true

p.GraphLayout.FastChange.Pie = true

p.GraphLayout.FastChange.Scatter = false

p.GraphLayout.FastChange.Straight = false

p.GraphLayout.FastChange.Pivot = false

p.ChartProperties.FastChangeInChart = true

chart.SetProperties p

chart.SetChartType 4       'line

Saludos,