08/05/2006, 02:59
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 18 años, 5 meses Puntos: 1 | |
| Windows("ORIGEN.xls").Activate ' si tienes dos libros (origen y destino)
Worksheets("Hoja1").Activate ' la hoja donde tienes los datos
Cells.Select ' selecciono toda la hoja
Selection.Copy ' la copio
Windows("DESTINO.xls").Activate ' abro el libro destino
Worksheets("Hoja1").Activate ' hoja donde quiero copiarlo
Cells.Select ' selecciono toda la hoja, para que el área de copia sea igual
ActiveSheet.Paste ' pego el contenido
Esto te debería funcionar. Si no te copia el gráfico, asegurate que en las propiedades del mismo este activado el "mover, pero no cambiar tamaño con las celdas" porque suele estar "No mover, ni cambiar tamaño con las celdas"
Un saludo
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: |