Insertar Imagenes en Excel
Publicado por Rafaelo (62 intervenciones) el 24/04/2003 18:12:48
Hola Expertos...
Tengo un codigo que genera un reporte en Excel, manda los datos de Fox a Excel, y le estoy insertando una imagen 'bmp' varias veces como encabezado del reporte, es decir por ejemplo en la celda A1 inserto la imagen, luego genero el reporte, luego la vuelvo a insertar en la A35 y sigo generando el reporte y asi n veces pero conforme voy insertando las imagenes las primeras van disminuyendo de tamaño si las inserto a un tamaño de 64x64 por ejemplo luego toman un tamaño de 16x16 o algo asi.. a que se debera? el codigo que uso para insertar es el siguiente:
.Range("A1").Select
.Pictures.Insert(Sys(5)+Sys(2003)+"\bmps\logo.bmp").Select
.Pictures.ShapeRange.ScaleWidth(0.70,0,0)
.Pictures.ShapeRange.ScaleHeight(0.70,0,0)
Tengo un codigo que genera un reporte en Excel, manda los datos de Fox a Excel, y le estoy insertando una imagen 'bmp' varias veces como encabezado del reporte, es decir por ejemplo en la celda A1 inserto la imagen, luego genero el reporte, luego la vuelvo a insertar en la A35 y sigo generando el reporte y asi n veces pero conforme voy insertando las imagenes las primeras van disminuyendo de tamaño si las inserto a un tamaño de 64x64 por ejemplo luego toman un tamaño de 16x16 o algo asi.. a que se debera? el codigo que uso para insertar es el siguiente:
.Range("A1").Select
.Pictures.Insert(Sys(5)+Sys(2003)+"\bmps\logo.bmp").Select
.Pictures.ShapeRange.ScaleWidth(0.70,0,0)
.Pictures.ShapeRange.ScaleHeight(0.70,0,0)
Valora esta pregunta


0