SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: Widark en Miércoles 19 de Enero de 2005, 23:26
-
:huh:
Buena Tarde!
De antemano muchas gracias por tomarse la molestia de leer este mensaje, sucede que quiero insertar una imagen a Excel desde vb 6.0, ya tengo la ruta, es más en Excel probé como podría hacerlo y es con el objeto “Shapes” (Set xlsImagen = CreateObject("Excel.Shapes")), pero a lo que llega a esta línea me aparece un mensaje de error no lo recuerdo pero es algo parecido “El objeto Activex no soporta esta propiedad”, si saben otra forma de hacerlo o algún tip les agradecería mucho, de nuevo muchas gracias.
La línea en la que se supone ingresa la imagen es:
xlsImagen.AddPicture ruta_imagen & ".gif", False, True, 600, 44, 100, 90, si lo prueban en Excel funciona
-
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.
-
:D , Gracias Icotera!!!
El codigo que me diste lo adapte y me funciono de maravilla, creeme pase mucho tiempo matando me la cabeza, nuevamente muchas gracias me sirvio mucho. El codigo quedo asi:
Dim ExcelExp As Excel.Application
Set ExcelExp = CreateObject("EXCEL.APPLICATION")
With ExcelExp
.Workbooks.Add
.Sheets(1).Select
.Sheets(1).Shapes.AddPicture strLogo, False, True, 280, 2, 70, 90
Demas instrucciones
End With