1
« en: Lunes 24 de Enero de 2005, 22:14 »
Hola Widark
Prueba este código.
Yo lo uso para insertar fotos a un reporte exportado a Excel
Dim objExcel As Excel.Application
Dim objLibro As Excel.Workbook
Dim objHoja As Excel.Worksheet
Set objExcel = CreateObject("Excel.Application")
Set objLibro = objExcel.Workbooks.Add
Set objHoja = objLibro.Sheets(1)
objHoja.Application.Range("A1").Select
objHoja.Shapes.AddPicture <Name file>, False, True, 445, 200, 250, 150
objLibro.Close
objExcel.Application.Quit
Set objExcel = Nothing
Set objLibro = Nothing
Set objHoja = Nothing
Espero te sirva de ayuda.
Mostrar Mensajes
