SPINBUTTOM & GRAFICOS ???

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 ???

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 ???

Tu solucion tambien fallo !!! (esta afirmacion es falsa ! ) pero... gracias a ella di con el problema.
Resulta y sucede que el excel se cuelga cuando referencias a objetos que no existen !!!
Sorpresa !! todo era cuestion de un acento. usaba "Grafico 1" en ves de "Grafico 1" , Belive it or not !

y probablemente en el caso que te mencione en un post anterior sobre un problema de cuelgue con un combobox
se deba a la misma razon. siendo asi no habria por que preocuparse mas que
esperar por que microsoft corrija estos detallitos... que en algunas ocasiones son bastante dificiles de determinar...