Insertar imagen en excel a través comando de macro

[Skalitiko]

Tienes que agregar la referencia Microsoft Excel 9.0 Object Library desde el menú project->refencies para que funcione.

Private Ex As New Excel.Application

Private Sub Command1_Click()
Ex.Visible = True ' Abro excel
Ex.SheetsInNewWorkbook = 1 ' el nuevo libro de trabajo va tener 1 hoja
Ex.Workbooks.Add ' agrego el nuevo libro de trabajo
Ex.ActiveSheet.Pictures.Insert("C:\paso\chanchullo \Celuliticos\fdgdfg.gif").Select ' inserto la imagen

End Sub

Private Sub Command2_Click()
Ex.Quit ' Cierra excel
End Sub