OCULTAR/EXIBIR OBJETOS

[leonardo0979]

Eu preciso de uma macro ou algum macete que me possibilite apertar um botão é fazer sumir/exibir um agrupamento de objetos: formas,imagens etc. alguem pode me ajuda ?

[schiavinatto]

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