Como verificar se uma célula contém imagem no Excel?
É fácil localizar e selecionar todas as imagens em uma planilha ativa do Excel. Mas você sabe como verificar se uma célula contém uma imagem no Excel? Um método neste artigo pode ajudá-lo.
Verifique se uma célula contém imagem com código VBA
Verifique se uma célula contém imagem com código VBA
O código VBA abaixo pode ajudá-lo a verificar se uma célula contém uma imagem. Faça o seguinte.
1. Abra a planilha de que você precisa para verificar se a imagem existe em uma célula especificada e pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA na janela Código.
Código VBA: Verifique se uma célula contém 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. aperte o F5 chave para executar o código. No surgimento Kutools for Excel caixa de diálogo, insira a célula que você deseja verificar se contém uma imagem e clique no botão OK botão. Veja a imagem:
4. Em seguida, uma caixa de diálogo aparecerá como a imagem abaixo mostrada se uma imagem existe ou não na célula especificada.
Artigos relacionados:
- Como alterar automaticamente todas as imagens para mover e tamanho com células no Excel?
- Como centralizar uma imagem em uma célula do Excel?
- Como inserir imagem ou figura dinamicamente na célula com base no valor da célula no Excel?
- Como ampliar a imagem ao clicar nela no Excel?
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!
