08/10/2010, 07:36
|
| | | Fecha de Ingreso: enero-2008
Mensajes: 366
Antigüedad: 16 años, 10 meses Puntos: 3 | |
 Respuesta: VB5 el programa no respode
El programa esta algo largo, en si lo que hago es que leo el archivo txt y voy ubicando la información en celdas, después lo mando a darle formato (colo, tipo de letra, tamaño, etc, etc), y por último si es un archivo que deba llevar gráfica la inserto en el f1book de esta manera:
Libro1.TransactStart
Load Picture2(NGra)
Picture2(NGra).Picture = LoadPicture(Ruta & NomG & ".wmf") 'cargar la imagen en el picture
ID = Libro1.ObjCreatePicture(Libro1.Col, Libro1.Row, Libro1.Col + 3, r2, Picture2(NGra).Picture.Handle, 8, 0, 0) 'inserta imagen en el f1book
Si hay más de 14 archivos que deban llevar gráfica me marca el out of memory.
Intente hacerlo con un solo picture pero solo inserta la gráfica del último archivo.
si le quito la inserción de gráfica solo que genera el archivo y de formato lo hace todo bien, asi que yo pienso que es el picture el que me esta causando ese problema.
Habrá otra opción para insertar la gráfica en el f1book? |