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