Ciao,
io uso molto il "datapilot" e purtroppo come si può leggere nel manuale
l'intervallo di "Partenza" non è fra i valori che si possono modificare.
C'è un errore di traduzione nel manuale, perchè probabilmente dove si
dice "Risultato da" (Result from:) deve esser tradotto con "Risultato in".
Per ovviare al tuo problema io adotto le seguenti possibilità:
1 - Utilizzo delle macro
2 - Inserisco nuove righe prima dell'ultima riga definita
nell'intervallo del datapilot, cioè, se il datapilot è definito
Tabella1.$A$1:$D$100 aggiungo una riga prima della 100 così sicuramente
il range di lavoro del datapilot si aggiorna in Tabella1.$A$1:$D$101
se vuoi un esempio generico di macro che utilizzo:
Sub CreaDataPilot ()
Dim sFoglio As Object
Dim sRiepil As Object
Set sFoglio = ThisComponent.Sheets.getByName("Elenco")
Set sRiepil = ThisComponent.Sheets.getByName("Riepilogo RPNC")
oDPSource = sFoglio.getCellRangeByName("DBase").getRangeAddress()
oDPDestRange = createUnoStruct("com.sun.star.table.CellAddress")
oDPDestRange.Sheet =
sRiepil.getCellRangeByName("A1").getRangeAddress.Sheet
oDPDestRange.column = 0
oDPDestRange.row = 0
If sRiepil.DataPilotTables.hasByName("DP") Then
sRiepil.getDataPilotTables.removeByName("DP")
End If
oDPCtrl = sRiepil.DataPilotTables.createDataPilotDescriptor()
oDPCtrl.setSourceRange(oDPSource)
oDPCtrl.ColumnGrand = False
oDPCampi = oDPCtrl.getDataPilotFields()
oDPCampi.getByName("Impianto").orientation =
com.sun.star.sheet.DataPilotFieldOrientation.PAGE
oDPCampi.getByName("Finitura").orientation =
com.sun.star.sheet.DataPilotFieldOrientation.ROW
oDPCampi.getByName("Cliente").orientation =
com.sun.star.sheet.DataPilotFieldOrientation.ROW
oDPCampi.getByName("QTA NR").orientation =
com.sun.star.sheet.DataPilotFieldOrientation.DATA
oDPCampi.getByName("QTA KG").orientation =
com.sun.star.sheet.DataPilotFieldOrientation.DATA
oDPCampi.getByName("Finitura").function =
com.sun.star.sheet.GeneralFunction.SUM
oDPCampi.getByName("Data").orientation =
com.sun.star.sheet.DataPilotFieldOrientation.COLUMN
sRiepil.DataPilotTables.insertNewByName("DP", oDPDestRange, oDPCtrl)
End Sub
--
Giordani Sergio
Linux User: 359205: http://counter.li.org
Sistema operativo: Slackware: http://www.slackware.com/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
