OCULTAR/EXIBIR OBJETOS

editar

Ola @leonardo0979, esta macro deleta todas...

Sub DeleteAllPics()
    Dim oDoc As Object
    Dim oDrawPage As Object
    Dim oShape As Object
    Dim iShape As Integer
    Dim iSheet As Integer
    For iSheet = 0 To ThisComponent.getSheets().getCount() - 1
        oDrawPage = ThisComponent.getSheets().getByIndex(iSheet).getDrawPage()
        For iShape = oDrawPage.getCount() - 1 To 0 Step -1
            oShape = oDrawPage.getByIndex(i)
            oDrawPage.remove(oShape)
        Next iShape
    Next iSheet
End Sub