Código: Seleccionar todo
Dim oPaginaDibujo As Object
Dim oForma As Object
Dim oTam As New com.sun.star.awt.Size
oPaginaDibujo = ThisComponent.getCurrentController.getActiveSheet.getDrawPage()
oForma = ThisComponent.createInstance("com.sun.star.drawing.RectangleShape")
oTam.Width= Ancho
oTam.Height= Alto
With oForma
.LineStyle = com.sun.star.drawing.LineStyle.NONE
.FillColor = RGB( 75,75,75 )
.FillTransparence = 85
.setSize (oTam)
.Name = nDib
End With
oPaginaDibujo.Add( oForma )
¿Cual es manera de situarla en el fondo mediante código?