[usuarios OOo] Macro p/formatar celulas depois de verificar conteudo

Wed, 25 Jul 2007 06:43:43 -0700 

Bom dia

Preciso testar o valor de uma célula e baseado neste
valor formatar varias colunas da celula, a macro q eu
criei retorna 0(zero) quando acha a letra Z na coluna
e somente formata 1 coluna... como resolver isso,
ou se ha outra maneira de fazê-lo...
Sub CaminharSobreCelulas(intColuna, intLinha as Integer)
 Dim oMovPasta as Object
 Dim oCelula as Object
 Dim oPasta as Object
 Dim oDocumento as Object

 oDocumento = ThisComponent
 oPasta = oDocumento.Sheets
 oMovPasta = oPasta(0)

 oCelula = oMovPasta.GetCellByPosition(intColuna, intLinha)
 strmsg = oCelula.value
 msgbox strmsg

 if oCelula.value = "Z" then
   oCelula.charcolor = rgb (250,0,0)
   oCelula.charfontname = "Arial"
   oCelula.CharHeight = 18.00
   oCelula.CharWeight = com.sun.star.awt.FontWeight.BOLD
 end if
End Sub


Obrigado pela atenção

Responder a