Hola de nuevo.
Muchas gracias por tu respuesta Mauricio, las dos alternativas que me
propones son perfectamente funcionales y válidas para mis necesidades.
De nuevo gracias, un saludo.
Mauricio Baeza escribió:
Hola Antonio
Hola a todos...
Con un sencillo
MsgBox rectangulo.Anchor.Dbg_Properties
Te daras cuenta que la propiedad Anchor te devuelve la celda a la que esta
anclada la forma, en este caso el rectangulo y también observa que con
Dim miProteccion As New com.sun.star.util.CellProtection
estas declarando precisamente una estructura de protección para una celda,
no para una forma de dibujo
No encontre y no se si exista una propiedad para mostrar/ocultar (Hidden)
las formas de dibujo,
MsgBox rectangulo.Dbg_Properties
Se me ocurren las siguiente alternativas...
1.- Estableces el tamaño del rectangulo en cero
2.- Estableces la linea invisible y sin relleno
Las siguientes dos macros, alternan los valores de las dos opciones que te
doy...
Option Explicit
Sub MostrarOcultarPorTamano()
Dim oRectangulo As Object
Dim oTamano As New com.sun.star.awt.Size
oRectangulo = ThisComponent.getDrawPages().getByIndex( 0 ).getByIndex( 0
)
If oRectangulo.getSize().Width <= 0 Then
oTamano.Width = 8000
oTamano.Height = 3000
Else
oTamano.Width = 0
oTamano.Height = 0
End If
oRectangulo.setSize( oTamano )
End Sub
Sub MostrarOcultarPorColor()
Dim oRectangulo As Object
oRectangulo = ThisComponent.getDrawPages().getByIndex( 0 ).getByIndex( 0
)
If oRectangulo.LineStyle = 0 Then
oRectangulo.LineStyle = 1
oRectangulo.FillStyle = 1
Else
oRectangulo.LineStyle = 0
oRectangulo.FillStyle = 0
End If
End Sub
Pruebalas y nos cuentas...
Saludos a todos...
Mauricio
______________________________________________
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]
