Imagenes a Excel 2010
Publicado por Eduardo (47 intervenciones) el 09/09/2010 23:37:02
Tengo este código que me funcione perfectamente para exportar imagenes (fotografias) a Excel 2003, pero cuando lo ejecuto con Excel 2007 o 2010 las fotos no caen en la celda especificada.
ApExcel.Range("J5").Select
ApExcel.ActiveSheet.Pictures.Insert("\Ventas\Fotos\" + Trim(trp.trcodori) + ".JPG").Select
ApExcel.ActiveSheet.Application.CommandBars("Task Pane").Visible = False
ApExcel.Selection.ShapeRange.LockAspectRatio = msoTrue
ApExcel.Selection.ShapeRange.Height = 70.87
ApExcel.Selection.ShapeRange.Width = 73#
ApExcel.Selection.ShapeRange.Rotation = 0#
ApExcel.ActiveSheet.Rows(Trim(Str(5))).RowHeight = 71
Ejecute el macro en el Excel 2010 para obtener el código correspondiente, pero obtengo el mismo código que muestro en este ejemplo, es decir no hay cambios.
Donde está la falla?
Gracias
ApExcel.Range("J5").Select
ApExcel.ActiveSheet.Pictures.Insert("\Ventas\Fotos\" + Trim(trp.trcodori) + ".JPG").Select
ApExcel.ActiveSheet.Application.CommandBars("Task Pane").Visible = False
ApExcel.Selection.ShapeRange.LockAspectRatio = msoTrue
ApExcel.Selection.ShapeRange.Height = 70.87
ApExcel.Selection.ShapeRange.Width = 73#
ApExcel.Selection.ShapeRange.Rotation = 0#
ApExcel.ActiveSheet.Rows(Trim(Str(5))).RowHeight = 71
Ejecute el macro en el Excel 2010 para obtener el código correspondiente, pero obtengo el mismo código que muestro en este ejemplo, es decir no hay cambios.
Donde está la falla?
Gracias
Valora esta pregunta
0