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
