Foro Excel

Hola a todos,

A ver tengo programada una macro que realiza una grafica de una tabla dada y mi macro inserta una gráfica en la misma hoja donde esta la tabla. El problema es que, al ejecutar la macro, la grafica por defecto sale en medio de la hoja, justo donde tengo la tabla, con lo que la tabla no se ve. Me gustarí­a que alguien me dijera como puedo mover la gráfica a una celda que yo quiera y además que dicha gráfica se pueda agrandar, pues el tamaño que tiene por defecto no me sirve.

Muchas gracias de antemano.
Saludos.
Rubio

para moverla puedes usar:

ActiveSheet.ChartObjects("Gráfico 1").Activate

// esto es para seleccionarlo

ActiveSheet.Shapes("Gráfico 1").IncrementLeft -70
ActiveSheet.Shapes("Gráfico 1").IncrementTop -51

// esto es para mover el grafico, los valores negativos lo suben y llevan a la izquierda, los positivos lo bajan y llevan a la derecha.

ActiveSheet.Shapes("Gráfico 1").ScaleHeight 1.21, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Gráfico 1").ScaleWidth 1.27, msoFalse, msoScaleFromTopLeft

// esto es para cambiarle el tamaño........ escalarlo, el 1.21 y el 1.27 son los factores de escalado, 1 es dejarlo igual, por ejemplo 1.5 es aumentarlo 50%.



otra cosa que puedes hacer que resultarí­a más fácil es que al gráfico de origen (el que copias) le revises las propiedades y escojas la opción:

No mover ni cambiar con el tamaño de las celdas.

Buena suerte...... y que DIOS te bendiga.