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 ?
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