Hola, estoy intentando ocultar un rectángulo en una hoja de calc
mediante una macro. La idea es que al aplicar la macro el rectángulo se
oculte al usuario (no me interesa borrarlo). Para ello utilizo el código
de abajo, pero al ejecutarlo no obtengo ningún error y el rectángulo se
sigue viendo.
Dim oDoc, oPaginas, oPaginaDibujo, rectangulo as Object
Dim miProteccion As New com.sun.star.util.CellProtection
oDoc = ThisComponent
oPaginas = oDoc.DrawPages
'La primera hoja es la que tiene el dibujo
oPaginaDibujo = oPaginas.getByIndex( 0 )
'El rectángulo es el primer elemento de dibujo de la hoja
rectangulo = oPaginaDibujo.getByIndex( 0 )
'Defino la protección que quiero para el rectángulo
miProteccion.IsLocked = true
miProteccion.IsFormulaHidden = false
miProteccion.IsHidden = true
miProteccion.IsPrintHidden = true
'Establezco la protección
rectangulo.Anchor.CellProtection = miProteccion
He comprobado mediante el observador de Basic que la protección se ha
aplicado al rectángulo correctamente, sin embargo éste se sigue viendo.
¿Alguna sugerencia? Gracias.
______________________________________________
LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
