imagen a excel

[elbano66]

buenas, estoy exportando datos desde visuala excel pero deseo exportar una imagen desde visual a ecel como hago, actualmente hao esto pero no me funciona me sale es un numero

private Sub Command5_Click()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
'Poner Titulos
ApExcel.cells(1, 3).Formula = "RECIBO DE ENTREGA "
ApExcel.cells(27, 4).Formula = Image1
Set ApExcel = Nothing
End Sub


pero no me funciona nose porque de verdad o nose cual sera la propiedad en vez de formula nose que se pone para imagenes y necesito eso de urgencia

[osqar]

Proba apExcel.Pictures.Insert("c:\imagen.jpg").

[fero]

ApExcel.ActiveSheet.Pictures.Insert ("ruta_de_la_imagen")

[elbano66]

Iniciado por fero

ApExcel.ActiveSheet.Pictures.Insert ("ruta_de_la_imagen")

GRACIAS SI FUNCIONO PERFECTO HAY QUE COLOCAR EL TIPO DE ARCHIVO AL GINAL DE VERDAD GRACIAS