Estimados Amigos:
Si les hes posible, ¿podrían probar el siguiente código?, llamenla desde
cualquier hoja de calculo...
Sub Agrupar1()
Dim oDoc As Object
Dim oHojaActiva As Object
Dim oRango As New com.sun.star.table.CellRangeAddress
oDoc = ThisComponent
oHojaActiva = oDoc.getCurrentController.getActiveSheet()
'Establecemos las propiedades del grupo
With oRango
'La hoja donde se creará, noten que la hoja no existe
.Sheet = oDoc.getSheets.getCount()
'La columna de inicio
.StartColumn = 0
'La columan de fin
.EndColumn = 4
End With
'Creamos el grupo, 0 = por columnas
oHojaActiva.group( oRango, 0 )
End Sub
Al parecer, si establecemos una hoja que no existe, la aplicación
"truena", lo mismo sucede si establecemos las columnas en rangos no
válidos... agradeceré sus pruebas....
Saludos a todos...
Mauricio
--
__________________________________
Todo lo que no es dado es perdido
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
