Pergunte aqui
0

OCULTAR/EXIBIR OBJETOS

perguntadas 2020-11-21 01:45:25 +0100

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 ?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

0

respondidas 2020-11-22 21:35:04 +0100

imagem do gravatar de Schiavinatto

updated 2020-11-22 21:35:51 +0100

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
editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2020-11-21 01:45:25 +0100

Lidas: 14 vezes

Última atualização: Nov 22 '20