Estimados Amigos:
Si les es posible, ¿pueden probar la siguiente macro?
Sub Imagenes17()
Dim oPaginaDibujo As Object
Dim oForma As Object
oPaginaDibujo =
ThisComponent.getCurrentController.getActiveSheet.getDrawPage
Do While oPaginaDibujo.hasElements
oForma = oPaginaDibujo.getByIndex(0)
oPaginaDibujo.remove( oForma )
Loop
End Sub
Llamenla desde una hoja de calculo que tenga varios formas o imágenes,
cuidado, no la usen sobre algún archivo de trabajo por que les borrara
todas las formas e imágenes que tengan en su hoja activa. Después de
cada ejecución, vuelvan a agregar algunas formas, después de varias
ejecuciones OOo truena, entre la 2a y 6a ejecución, solo quiero probar
si no es mis archivos o mi distribución.
Agradezco su tiempo y participación.
Saludos
Mauricio
--
__________________________________
Todo lo que no es dado es perdido
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
