Notifications
Clear all

Problema com Imagens

2 Posts
1 Usuários
0 Reactions
1,654 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá, estou com um problema em uma planilha.
A questão é a seguinte: Todo dia tenho novas imagens em uma planilha e preciso arrumar alguma forma mais facil para excluir as imagens para colar outra imagens todo dia.

Obs: nao posso excluir a coluna porque ela contem macro.

Gostaria que alguem me desse uma ideia. Sei lá talvez exista algum atalho para selecionar todas as imagens de uma vez e excuí-las.

Desde já Grato!

 
Postado : 10/05/2011 8:04 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Fernando, suponho que na planilha que citou tenha somente as Imagens, cada imagem ou objeto é tratado como um Shape, veja Coleção Shapes na Ajuda do VBA, portanto a Rotina abaixo deleta todos os Shapes que estão na mesma :

Sub DeletaShapes()
   
    'Mensagem só para informação, pode apagar,
    'Conta quantos Shapes temos na planilha
    MsgBox ActiveSheet.Shapes.Count
    
    On Error Resume Next
    Set sImag = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    
        For Each sImag In ActiveSheet.Shapes
            sImag.Delete
        Next

End Sub

A Rotina abaixo Seleciona todos os Shapes na planilha ativa :

Sub SelecionaTodosShapes()
    ActiveSheet.Shapes.SelectAll
End Sub

Faça os testes e veja se seria isto, mas se tiver outros tipos de Shape na mesma teremos de efetuar tratamento diferente, captando os shapes e verificando se são do tipo imagens, é um pouco mais complicado, ou se cada imagem tiver um nome definido tambem poderiámos dar outra solução.

abraços

 
Postado : 10/05/2011 12:44 pm