Visual Basic - Imagenes en excel

Life is soft - evento anual de software empresarial
 
Vista:

Imagenes en excel

Publicado por Sara (22 intervenciones) el 22/05/2007 21:04:50
Deseo copiar una imagen que tengo en la carpeta mis imagenes en una hoja de excel. Como puedo hacerlo??
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Imagenes en excel

Publicado por Christian (713 intervenciones) el 22/05/2007 21:12:26
Entre Fernando y Yo te habiamos contestado la pregunta igualmente aca esta la solucion propuesta por Fernando que funciona muy bien

Private Sub Command1_Click()

'Copiar una imagen al Portapapeles

Clipboard.Clear
Clipboard.SetData Picture1, 2 'imagen en picturebox Picture1 formato .bmp

'Crear un nuevo libro en Excel

Dim oExcel As Object
Dim oBook As Object

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add

'Pegar los datos
oBook.Worksheets(1).Range("A1").Select
oBook.Worksheets(1).Paste

'Guardar el libro y cerrar Excel
oBook.SaveAs "C:\Book1.xls"
oExcel.Quit

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar