Como remover todas as imagens num intervalo de células?
Se a sua folha de cálculo contiver várias imagens e pretender eliminar apenas algumas num intervalo limitado, como proceder rapidamente?
Eliminar todas as imagens num intervalo específico de células com código VBA
Eliminar todas as imagens num intervalo específico de células com código VBA
Eis um código VBA simples que o ajuda a eliminar as imagens do intervalo selecionado de uma só vez, sem precisar de as remover uma a uma. Por favor, siga estes passos:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: eliminar todas as imagens num Selecionar intervalo de células:
Sub DeletePic()
Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Application.ScreenUpdating = False
Set xRg = Range("A5:B8")
For Each xPic In ActiveSheet.Pictures
Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
Next
Application.ScreenUpdating = True
End Sub
Nota: no código acima, A5:B8 é o intervalo do qual pretende eliminar as imagens; altere-o conforme necessário.
3. Em seguida, prima a tecla F5 para executar este código e as imagens no intervalo selecionado serão eliminadas imediatamente. Veja a imagem:
Eliminar todas as imagens numa folha de cálculo ou em toda a pasta de trabalho com Kutools para Excel
Se precisar de eliminar todas as imagens de uma folha de cálculo ou de uma pasta de trabalho, a funcionalidade Kutools para Excel Excluir Imagens e Objetos pode ajudá-lo.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Clique em Kutools > Eliminar > Excluir Imagens e Objetos. Veja a imagem:
2. Na caixa de diálogo Excluir Imagens e Objetos, marque a opção Imagens na secção Eliminar e, em seguida, escolha o âmbito a partir do qual pretende eliminar as imagens na secção Procurar em. Veja a imagem:
3. Em seguida, clique no botão OK e todas as imagens serão eliminadas da folha de cálculo ou de toda a pasta de trabalho, conforme selecionado.
Kutools para Excel – Inclui mais de 300 ferramentas essenciais para o Excel. Torne as suas tarefas no Excel mais rápidas, fáceis e eficientes.Descarregue já!
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos