Como verificar se uma célula contém uma imagem no Excel?
É fácil encontrar e selecionar todas as imagens numa folha de cálculo ativa no Excel. Mas sabe como verificar se uma célula contém uma imagem? O método apresentado neste artigo pode ajudá-lo.
Verificar se uma célula contém uma imagem com código VBA
Verificar se uma célula contém uma imagem com código VBA
O código VBA abaixo pode ajudá-lo a verificar se uma célula contém uma imagem. Siga estes passos:
1. Abra a folha de cálculo onde precisa de verificar se existe uma imagem numa célula específica e, em seguida, prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA na janela Código.
Código VBA: Verificar se uma célula contém uma imagem no Excel
Sub CellHasPicture()
Dim xRg As Range
Dim xShape As Shape
Dim xFlag As Boolean
On Error Resume Next
Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xFlag = False
For Each xShape In ActiveSheet.Shapes
If xShape.TopLeftCell.Address = xRg.Address Then
xFlag = True
End If
Next
If xFlag Then
MsgBox "Image exists!"
Else
MsgBox "Image does not exist"
End If
End Sub3. Prima a tecla F5 para executar o código. Na caixa de diálogo que surge, introduza no Kutools para Excel o endereço da célula que pretende verificar quanto à presença de uma imagem e, em seguida, clique no botão OK. Veja a imagem:
4. Aparecerá uma caixa de diálogo, semelhante à apresentada abaixo, indicando se existe ou não uma imagem na célula especificada.
Artigos Relacionados:
- Como fazer todas as imagens serem movidas e redimensionadas automaticamente com as células no Excel?
- Como alinhar uma imagem ao centro de uma célula no Excel?
- Como inserir uma imagem ou imagem dinâmica numa célula com base no valor dessa célula no Excel?
- Como ampliar uma imagem ao clicar nela no Excel?
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