Salve a tutti,
Ho constatato che duplicando una sheet fuori dal documento lo stile di
pagina che era associato alla sheet sorgente viene perso.
Questo succede con tutti i sistemi che ho usato, compresa ovviamente la UI.
Per questo stavo tentando un accrocchio che, insieme alla sheet,
copiasse lo stile di pagina.
Allo scopo, sulla sheet di origine, ho prelevato lo stile usando questo
codice:
REM ***** BASIC *****
Global sStile_Pag
Global oAktPage
Sub registra_stile_pag
oSheet = ThisComponent.Sheets.getByName(_
ThisComponent.currentcontroller.activesheet.name)
sStile_Pag = oSheet.PageStyle 'registra lo stile corrente della Sheet
esktop = createUnoService( "com.sun.star.frame.Desktop" )
oController = oDesktop.CurrentFrame.Controller
oDocument = oController.Model
oStyleFam = oDocument.StyleFamilies
oTablePageStyles = oStyleFam.getbyName("PageStyles")
oAktPage = oTablePageStyles.getByname(sStile_Pag)
End Sub
'********************************************************
Ora abbiamo tutto lo stile pagina stivato nella globale oAktPage
E se proviamo a leggerlo con xray contiene tutto quello che serve.
I problemi arrivano quando cerco di scriverlo su un'altra sheet...
'**************************************************
SUB Scrivi_stile_pag
oSheet = ThisComponent.Sheets.getByName(_
ThisComponent.currentcontroller.activesheet.name)
oDesktop = createUnoService( "com.sun.star.frame.Desktop" )
oController = oDesktop.CurrentFrame.Controller
oDocument = oController.Model
oStyleFam = oDocument.StyleFamilies
oTablePageStyles = oStyleFam.getbyName("PageStyles")
' fino a qui sembra tutto OK, ma alla riga che segue
oTablePageStyles = oStyleFam.insertByName(sStile_Pag,oAktPage)
'mi da un errore di runtime basic
' Type: com.sun.star.lang.IllegalArgumentException
End Sub
'*******************************************************
Suppongo di esere caduto in qualche ingenuità...
Qualcuno mi può aiutare?
Un ringraziamento anticipato
Bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
