OlaComo puedo pasar una foto de LotusNotes a excel

Estoy tratando de pasar Información a Excel por medio de lotus..pero lo que quisiera saber es como pasar un campo que tiene una foto y ponerlo en una celda en excel

Call Archivo_Adjunto("ReporteRH")
Set Excel = CreateObject( "Excel.Application" )
Excel.Visible = True
'Excel.Workbooks.Add ("c:\notes\data\FORMATO PARA REPORTE OFICIOS.xlt")
Excel.Workbooks.Add (RUTA + "\ReporteRH.xlt")
Set xlWorkbook = Excel.ActiveWorkbook
row = 5
documento = 0
var=""
End If
row = row + 1
r=r+1
documento = documento + 1
excel.cells(2,2).value = Date()
excel.cells(3,2).value = usuario
Campo0="Oficio"
ID0=Doc.getitemvalue(Campo0)
Campo1="Fecha"
ID1=Doc.getitemvalue(Campo1)
Asunto="Asunto" 'DIRIGIDO
ID2=Doc.getitemvalue(Asunto)
Dirigido="Nombre" 'PUESTO
ID3=Doc.getitemvalue(Dirigido)
Dirigido2="Búsqueda" ' ASUNTO BREVE
ID4=Doc.getitemvalue(Dirigido2)
'Búsqueda="dirigido" ' interesado
'ID5=Doc.getitemvalue(Búsqueda)
'di = "fenominas" ' fecha de nominas
'ID6 = doc.getitemvalue(di)
'Dependencia="Direcion1" ' dependencia y/o asignación
'ID7=Doc.getitemvalue(Dependencia)
Excel.Cells(x+5,1).Value=Trim(Str(x))
Excel.Cells(x+5,1).Select
Excel.Selection.Font.Size = 8
Excel.Cells(x+5,2).Value=ID0(0)
Excel.Cells(x+5,2).Select
Excel.Selection.Font.Size = 8
Excel.Cells(x+5,3).Value=ID1(0)
Excel.Cells(x+5,3).Select
Excel.Selection.Font.Size = 8
Excel.Cells(x+5,5).Value=ID2(0)
Excel.Cells(x+5,5).Select
Excel.Selection.Font.Size = 8
Excel.Cells(x+5,4).Value=ID3(0)
Excel.Cells(x+5,4).Select
Excel.Selection.Font.Size = 8
Excel.Cells(x+5,6).Value=ID4(0)
Excel.Cells(x+5,6).Select
Excel.Selection.Font.Size = 8
'Excel.Cells(x+5,7).Value=ID5(0)
'Excel.Cells(x+5,7).Select
'Excel.Selection.Font.Size = 8
'Excel.Cells(x+5,8).Value=ID6(0)
'Excel.Cells(x+5,8).Select
'Excel.Selection.Font.Size = 8
'Excel.Cells(x+5,9).Value=ID7(0)
'Excel.Cells(x+5,9).Select
'Excel.Selection.Font.Size = 8
A=A+1
Set doc = collection.GetNextDocument(doc)
z=z
Wend
If x >=1 Then
'////// SECCION DE FORMATO DE LA HOJA DE EXCEL
'************************* FINALIZANDO*******************
'Excel.ActiveWorkbook.printout 'MANDA A IMPRIMIR
'Excel.ActiveWorkbook.close(False) 'CIERRA EL LIBRO SIN GUARDARLO
'Excel.Quit 'CIERRA EXCEL
Print "Se han exportado datos de "&documento" documentos"
Print "Finalizada la creación del informe..."
End If
End Sub