Como verificar se existe uma forma ou imagem na folha ativa?
Por exemplo, já houve dezenas de formas ou imagens adicionadas na planilha ativa, e agora você deseja verificar se uma forma ou imagem específica existe na planilha ativa ou não, como você pode lidar rapidamente com este trabalho sem verificar as formas ou imagens uma por uma? No Excel, nenhuma função interna pode ajudá-lo, mas neste artigo, apresento um código VBA para descobrir rapidamente se uma forma ou imagem existe na planilha ativa.
Verifique se existe uma forma ou imagem na página ativa
Verifique se existe uma forma ou imagem na página ativa
Aplique o código de macro abaixo para verificar se uma imagem específica existe na planilha ativa.
1. Pressione Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo e cole o código abaixo no script.
VBA: Verifique se existe uma forma ou imagem
Sub CheckImage () 'UpdatebyExtendoffice20170927
Dim xChar como imagem
Dim xFlag como booleano
Dim xCharName como string
Em caso de erro, retomar o próximo
Application.ScreenUpdating = Falso
xCharName = "gato"
xFlag = Falso
Para cada xChar em ActiveSheet.Pictures
Debug.Imprimir xChar.Name
Se xChar.Name = xCharName então
MsgBox "A imagem está na planilha ativa", vbInformation, "KuTools For Excel"
xFlag = Verdadeiro
Sair para
Fim se
Próximo
Se não for xFlag, então
MsgBox "A imagem não está na planilha ativa", vbInformation, "KuTools For Excel"
Fim se
Application.ScreenUpdating = Verdadeiro
Finalizar sub
3. Pressione F5 para executar o código, uma caixa de diálogo é exibida para lembrá-lo se a imagem existe na planilha ativa.
 |
 |
Dica: No código macro, você pode alterar o nome da imagem em xCharName = "gato" para atender a sua necessidade.
Artigos relativos:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
