[libreoffice-users] oDoc.Store() does not save logo in SpreadSheet.

Hi

I use the following code to open a spreadsheet and insert a logo and then
save the document via automation from VFP.  However if I use the Store()
method the logo is no included.  The 6 lines I inserted are included but not
the logo.  If I use the storeAsURL() then the logo is also included.  Is
this a bug or is there some feature I do not know that causes this
discrepancy?

Thanks
Simon

Local laArgs(1),loDisp,loSheet,loFrame,lo,lc

*
* This section just deletes any lock file because I have found that lock
files are sometimes not deleted and then 
* prevent subsequent access to the file.  
*
DECLARE LONG SetFileAttributes IN WIN32API String, Long
DECLARE LONG DeleteFile IN Win32API STRING

If
File(JustPath(toParam.Destination)+"\.~lock."+JustFname(toParam.Destination)+"#",1)
  
SetFileAttributes(JustPath(toParam.Destination)+"\.~lock."+JustFname(toParam.Destination)+"#",0)
  
DeleteFile(JustPath(toParam.Destination)+"\.~lock."+JustFname(toParam.Destination)+"#")
EndIf
If File("DOC\.~lock.AFDHEADERLOGO.PNG#",1)
   SetFileAttributes("DOC\.~lock.AFDHEADERLOGO.PNG#",0)
   DeleteFile("DOC\.~lock.AFDHEADERLOGO.PNG#")
EndIf
Clear Dlls "SetFileAttributes","DeleteFile"

Dimension laArgs(2)
toBizObj.MergeSetup("OOC")
toBizObj.MergeOpenDoc(toParam.Destination)
loSheet=toBizObj.oMergeDoc.getSheets().getByIndex(0)
loSheet.Rows.insertByIndex(0,6)
loFrame=toBizObj.oMergeDoc.getCurrentController().getFrame()
loDisp=toBizObj.oMergeSrvMgr.createInstance("com.sun.star.frame.DispatchHelper")

laArgs(1)=toBizObj.oMergeSrvMgr.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
laArgs(1).Name="FileName"
laArgs(1).Value=ConvertToURL("D:\KARDTECH\CUSTOMERS\ALBERTAFUELDIST\KARDPOLL\DOC\AFDHEADERLOGO.PNG")
laArgs(2)=toBizObj.oMergeSrvMgr.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
laArgs(2).Name="AsLink"
laArgs(2).Value=.F.
ComArray(loDisp,10)

loDisp.executeDispatch(loFrame, ".uno:InsertGraphic", "", 0, @laArgs)

laArgs(1).Name="FilterName"
laArgs(1).Value="MS Excel 97"
laArgs(2).Name="Overwrite"
laArgs(2).Value=.T.
ComArray(toBizObj.oMergeDoc,10)

*toBizObj.oMergeDoc.getCurrentController().getFrame().getContainerWindow().setVisible(.T.)
&& View SpreadSheet


toBizObj.oMergeDoc.storeAsURL(ConvertToURL(toParam.Destination),@laArgs)
*toBizObj.oMergeDoc.store()

Try
   toBizObj.oMergeDoc.close(1)
Catch
EndTry
toBizObj.oMerge.Terminate()



--
Sent from: http://document-foundation-mail-archive.969070.n3.nabble.com/Users-f1639498.html

-- 
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/global/users/
Privacy Policy: https://www.documentfoundation.org/privacy