Exportar imagen a excel con otro tamaño

On 28 jun, 09:53, astrow wrote:
Mostrar la cita

Hola, quisiera saber como puedo exportar a excel imagenes, pero con
tamaño diferente al original.

Es decir que si tengo una imagen de 40 X 40 la exporte de 20 x 20.

Gracias.

Hola..

Estoy con eso en estos momentos, he logrado (buceando en la web) hacer
este codigo que me funciona bien, ajusta la imagen al tamño de la
celda, quizas te ayude:

Dim AppExcel
Dim Libro
Dim Hoja
Dim p As Object
Dim t, L, w, h As Double

Set AppExcel = CreateObject("Excel.Application")
Set Libro = AppExcel.Workbooks.Add
Set Hoja = Libro.ActiveSheet


Hoja.Cells(CeldaActual, ColumnaActual).RowHeight = nAlto ' El alto de
la celda
Hoja.Cells(CeldaActual, ColumnaActual).Columnwidth = nAncho ' El ancho
de la celda

Set p = Hoja.Pictures.Insert(rsRecordSet.Fields("IMAGEN"))

With Hoja.Cells(CeldaActual, ColumnaActual)
t = .Top
L = .Left
w = .Offset(0, .Columns.Count).Left - .Left
h = .Offset(.Rows.Count, 0).Top - .Top
End With

With p
.Top = t
.Left = L
.Width = w
.Height = h
End With

Set p = Nothing

Estoy luchando ahorita para bajarle la resolucion a la imagen, a ver
como lo resuelvo, porque el archvo excel pesa mucho, cuando inserto
muchas imagenes.

Saludos,

Yuri Aponte