Option Explicit
Sub ResaltarSeleccion()
Dim oDoc As Object
Dim oControlador As Object
Dim oSel As Object
Dim oRango As Object
Dim oRango1 As Object
Dim oRango2 As Object
oDoc = ThisComponent
oControlador = oDoc.CurrentController
oSel = oControlador.Selection
If oSel.ImplementationName = "ScCellObj" Then
oRango = oControlador.getVisibleRange
oRango1 = oSel.SpreadSheet.getCellRangeByPosition( oSel.CellAddress.Column, oRango.StartRow, oSel.CellAddress.Column, oRango.EndRow+1 )
oRango2 = oSel.SpreadSheet.getCellRangeByPosition( oRango.StartColumn, oSel.CellAddress.Row, oRango.EndColumn+1, oSel.CellAddress.Row )
oRango = oSel.SpreadSheet.getCellRangeByPosition( oRango.StartColumn, oRango.StartRow, oRango.EndColumn+1, oRango.EndRow+1 )
oRango.CellStyle = "Default"
oRango1.CellStyle = "Resaltado"
oRango2.CellStyle = "Resaltado"
End If
End Sub
REM ***** BASIC *****
Option Explicit
Sub ResaltarSeleccion()
Dim oDoc As Object
Dim oControlador As Object
Dim oSel As Object
Dim oRango As Object
REM Dim oRango1 As Object
Dim oRango2 As Object
oDoc = ThisComponent
oControlador = oDoc.CurrentController
oSel = oControlador.Selection
If oSel.ImplementationName = "ScCellObj" Then
oRango = oControlador.getVisibleRange
REM oRango1 = oSel.SpreadSheet.getCellRangeByPosition( oSel.CellAddress.Column, oRango.StartRow, oSel.CellAddress.Column, oRango.EndRow+1 )
oRango2 = oSel.SpreadSheet.getCellRangeByPosition( oRango.StartColumn, oSel.CellAddress.Row, oRango.EndColumn+1, oSel.CellAddress.Row )
oRango = oSel.SpreadSheet.getCellRangeByPosition( oRango.StartColumn, oRango.StartRow, oRango.EndColumn+1, oRango.EndRow+1 )
oRango.CellStyle = "Default"
REM oRango1.CellStyle = "Resaltado"
oRango2.CellStyle = "Resaltado"
End If
End Sub
Sub ResaltarSeleccion()
Dim oDoc As Object
Dim oControlador As Object
Dim oSel As Object
Dim oRango As Object
Dim oRango1 As Object
Dim oRango2 As Object
oDoc = ThisComponent
oControlador = oDoc.CurrentController
oSel = oControlador.Selection
If oSel.ImplementationName = "ScCellObj" Then
oRango = oControlador.getVisibleRange
'oRango1 = oSel.SpreadSheet.getCellRangeByPosition( oSel.CellAddress.Column, oRango.StartRow, oSel.CellAddress.Column, oRango.EndRow+1 )
oRango2 = oSel.SpreadSheet.getCellRangeByPosition( oRango.StartColumn, oSel.CellAddress.Row, oRango.EndColumn+1, oSel.CellAddress.Row )
'oRango = oSel.SpreadSheet.getCellRangeByPosition( oRango.StartColumn, oRango.StartRow, oRango.EndColumn+2, oRango.EndRow+2 )
oRango = oSel.SpreadSheet.createCursor()
oRango.CellStyle = "Default"
'oRango1.CellStyle = "Resaltado"
oRango2.CellStyle = "Resaltado"
End If
End Sub
mauricio escribió:Muy sencillo...
- Código: Seleccionar todo Expandir vistaContraer vista
Sub ResaltarSeleccion()
Dim oDoc As Object
Dim oControlador As Object
Dim oSel As Object
Dim oRango As Object
Dim oRango1 As Object
Dim oRango2 As Object
oDoc = ThisComponent
oControlador = oDoc.CurrentController
oSel = oControlador.Selection
If oSel.ImplementationName = "ScCellObj" Then
oRango = oControlador.getVisibleRange
'oRango1 = oSel.SpreadSheet.getCellRangeByPosition( oSel.CellAddress.Column, oRango.StartRow, oSel.CellAddress.Column, oRango.EndRow+1 )
oRango2 = oSel.SpreadSheet.getCellRangeByPosition( oRango.StartColumn, oSel.CellAddress.Row, oRango.EndColumn+1, oSel.CellAddress.Row )
'oRango = oSel.SpreadSheet.getCellRangeByPosition( oRango.StartColumn, oRango.StartRow, oRango.EndColumn+2, oRango.EndRow+2 )
oRango = oSel.SpreadSheet.createCursor()
oRango.CellStyle = "Default"
'oRango1.CellStyle = "Resaltado"
oRango2.CellStyle = "Resaltado"
End If
End Sub
Saludos
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados