SPINBUTTOM & GRAFICOS ???

02/06/2008 - 16:27 por Orfao | Informe spam
Hola Grupo !!

Genero un shape a partir de las coordenadas de un grafico de dispersion el
cual se dibuja justamente sobre el grafico. a a este shape le asigno fondo,
textura , 3d , transparencia, etc..
luego deseo hacerlo girar para verlo en perspectiva pero

cuando trato de ejecutar el codigo generado por el grabador y que he pasado
a un control "spin" se cuelga... Por Que ???

(Esta es parte del codigo)
con el grabador de macros:

ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Shapes("Banqueo").Select
Selection.ShapeRange.ThreeD.IncrementRotationY 5#

esto lo llevo a un un spinbuttom:

Private Sub SpinButton3_SpinUp()
ActiveSheet.ChartObjects("Gráfico
1").Shapes("Banqueo").ThreeD.IncrementRotationY 1
End Sub

entonces... cuando presiono el control se genera un error.. notificar a
microsoft... recuperar el archivo...etc...etc...
Que esta pasando ? Cual es el problema ? como
corregir/modificar/mejorar/implementar el codigo ???

Gracias.
Me alimento del conocimiento de todos
 

Leer las respuestas

#1 Héctor Miguel
02/06/2008 - 21:23 | Informe spam
hola, moises !

hay algunas "formas" de hacer referencia a objetos que "cuelgan" algunas versiones de excel (pero otras no) -?-

prueba "calificando" al objeto ".Chart" con algo +/- como lo siguiente (asignado al control spinbutton):

ActiveSheet.ChartObjects("Grafico 1").Chart.Shapes("Banqueo").ThreeD.IncrementRotationY 1

saludos,
hector.

__ la consulta original __
Genero un shape a partir de las coordenadas de un grafico de dispersion el cual se dibuja justamente sobre el grafico.
a este shape le asigno fondo, textura, 3d, transparencia, etc... luego deseo hacerlo girar para verlo en perspectiva pero...
cuando trato de ejecutar el codigo generado por el grabador y que he pasado a un control "spin" se cuelga... Por Que ???

(Esta es parte del codigo) con el grabador de macros:
ActiveSheet.ChartObjects("Grafico 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Shapes("Banqueo").Select
Selection.ShapeRange.ThreeD.IncrementRotationY 5#

esto lo llevo a un un spinbuttom:
Private Sub SpinButton3_SpinUp()
ActiveSheet.ChartObjects("Grafico 1").Shapes("Banqueo").ThreeD.IncrementRotationY 1
End Sub

entonces... cuando presiono el control se genera un error.. notificar a microsoft... recuperar el archivo...etc...etc...
Que esta pasando ? Cual es el problema ? como corregir/modificar/mejorar/implementar el codigo ???

Preguntas similares