Destacar a linha da célula selecionada

editar

Seguem códigos para inserir no "Module1", exclusivo, do Basic (Alt+F11), depois atribuir a ação DestacarEventos na opção Seleção alterada (em Planilha->Eventos de planilha...):

Sub DestacarEventos
DestacarX()
end sub

Sub DestacarX(Optional nClasse, Optional Back As Integer)

Dim Altura
Dim DDestac
Dim ETQ As String
Dim i As Integer
Dim LinhaSel
Dim Largura
Dim oControlador As Object
Dim oCursor As Object
Dim oDib As Object
Dim oDoc As Object
Dim oDP As Object
Dim oSel As Object
Dim pos
Dim shape1 As Object
Dim size

ETQ= "BarraDestacar"
If IsMissing(Back) Then Back = 2 

oDoc = ThisComponent
oControlador = oDoc.CurrentController
oSel = oControlador.Selection

If Not (oSel.ImplementationName = "ScCellObj") Then
    GoTo Fin
End If

oDP = oSel.getSpreadSheet().getDrawPage()

LinhaSel = oSel.getRangeAddress.StartRow

If IsMissing(nClasse) or nClasse="" Then
    oCursor = oSel.getSpreadSheet.createCursorByRange(oSel)
    oCursor.gotoEndOfUsedArea( False )
    nClasse= Replace(oCursor.AbsoluteName, ".",  ".A6:")        'começar na linha 6
End If
DDestac = oControlador.ActiveSheet.getCellRangeByName(nClasse)      
If LinhaSel > DDestac.getRangeAddress.EndRow Or LinhaSel < DDestac.getRangeAddress.StartRow Then
    For i= (oDP.getCount - 1) To 0 Step -1
        oDib = oDP.getByIndex(i)
        If oDib.Name = ETQ & "Linha" Then
            oDP.Remove(oDib)
        End If
    Next
    GoTo Fin
Else
    For i= (oDP.getCount - 1) To 0 Step -1
        oDib = oDP.getByIndex(i)
        If oDib.Name = ETQ & "Linha" Then
            GoTo Seguir
        End If
    Next
Dim oForma As Object
Dim oTam As New com.sun.star.awt.Size
    For i=0 To 1

         oTam.Width= 5000 - (4700*i)
         oTam.Height= 300 + (4700*i)
        oForma = ThisComponent.createInstance("com.sun.star.drawing.RectangleShape")
        With oForma
            If i=1 Then 
                .Name = ETQ & "Linha"
            End If
            .setSize (oTam) 
            .MoveProtect = True
            .LineStyle = com.sun.star.drawing.LineStyle.NONE
            .FillColor = RGB( 75,75,75 ) 'cor
            .FillTransparence = 85       'transparência em %
            .LayerID = Back
            .ZOrder = 0
        End With
         oDP.Add(oForma)
    Next
End If

Seguir:
oCursor = DDestac.getSpreadSheet.createCursorByRange(DDestac)
Largura = oCursor.Size.Width
Altura = oCursor.Size.Height    
oCursor.gotoEndOfUsedArea(False)

Dim index1 As Integer 
For i=0 To oDP.getCount - 1
    oDib = oDP.getByIndex(i)
    If  oDib.Name  = ETQ & "Linha" Then
        index1 = i
    End If
Next

shape1 = oDP.getByIndex(index1) 

pos = oSel.Position
size = oSel.Size
size.Width = Largura

pos.X = DDestac.Position.X
shape1.setPosition(pos)
shape1.setSize(size)

pos = oSel.Position
size = oSel.Size    
size.Height = Altura

Fin:
Exit Sub

End Sub

Fonte: Fóruns da comunidade Apache OpenOffice (e LibreOffice)

Ps: O destaque na linha aparecerá entre a col A e a última usada.