Hoje meu objetivo é ajudar as pessoas a excluir imagens do excel.
Em um artigo anterior, sobre imagens, eu demonstrei como manipula-las fazendo as girar, aumentar e etc.
Esta semana iniciei um novo projeto que se inicia com um pdf convertido em excel e em resumo:
- vou ter que formata-lo (pois os dados estão desorganizados),
- depois comparar com o banco de dados da empresa,
- transformar dados em informações
- e fazer com que qualquer pessoa possa usá-lo.
A primeira coisa a fazer é limpar as imagens que vieram do pdf! No meu caso é fácil porque as imagens estão em apenas uma Plan.
E logo pensei em como poderia ajudar mais… será que as pessoas precisam excluir as imagens do Excel? E se for preciso retirar de todas as guias do Excel?
Se a planilha tiver muitas figuras será muito irritante retirar todas da planilha manualmente!
Exemplo 1: excluir imagens do Excel
O código é ótimo, pois é pequeno e fácil de se utilizar! No caso abaixo (exemplo1) ele retira as imagens de todas as plans.
For Each guia In ActiveWorkbook.Worksheets() guia.Select guia.Shapes.SelectAll Shapes.Delete Next
Exemplo 2: retirar imagens de apenas uma guia
ActiveSheet.Shapes.SelectAll Selection.Delete
Segue vídeo com vba na prática
Agora é contigo! Mas lembre-se que nem todas as imagens são ruins!
Abração