problema con exportación a excel

[mastintin]

Tengo un xbrowse con una columna donde muestran la imagen recogida desde su ruta ...
Esto funciona bien pero al realizar la exportación a excel con obrw:toexcel() las imágenes no se exportan como se supone que tendría que pasar .
He realizado un ejemplo donde se reproduce el problema . Al hacer dblclick se exporta a excel pero las imágenes no se exportan.
¿ Veis algo raro en el código que hace que no funcione ?
Saludos y gracias anticipadas.

Code: Select all  Expand view

#include "fivewin.ch"
#include "xbrowse.ch"

function Main()

   local oWnd, oBrw
   local cAlias
   local oCol
   use customer
   calias:= Alias()
     define window ownd
       
   @ 0,0 xbrowse oBrw of oWnd ;
         alias calias
         
     obrw:nRowHeight := 76  
     obrw:blDblClick := { | nRow, nCol, nKey | obrw:toexcel()  }
         
      oCol := obrw:AddCol()
      WITH OBJECT oCol
         :cHeader   := "first"
         :bEditValue  := { || ( oBrw:cAlias )->first }
         :nWidth    := 170
      End    
     
       oCol := obrw:AddCol()
      WITH OBJECT oCol
         :cHeader   := "foto"
         :bStrImage      := { ||  "c:\fwh\bitmaps\pngs\2.png" }
         :nWidth    := 170
         :cDataType     := 'F'
      End      
       
         
   oBrw:CreateFromCode()
   oWnd:oClient := oBrw

   activate window oWnd

return nil
 

[mastintin]

up..