Como verificar se uma célula contém uma imagem no Excel?

É fácil encontrar e selecionar todas as imagens em uma planilha ativa no 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 uma imagem com código VBA

Verifique 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. Por favor, siga os passos abaixo.

1. Abra a planilha onde você precisa verificar se uma imagem existe em uma célula específica, depois pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA na janela de Código.

Código VBA: Verifique 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 Sub

3. Pressione a tecla F5 para executar o código. Na caixa de diálogo Kutools for Excel que aparece, insira o endereço da célula que deseja verificar quanto à presença de uma imagem e clique no botão OK. Veja a captura de tela:

4. Uma caixa de diálogo aparecerá, conforme mostrado abaixo, indicando se uma imagem existe na célula especificada.

Artigos Relacionados:

• Como alterar automaticamente todas as imagens para mover e dimensionar com as células no Excel?
• Como centralizar uma imagem em uma célula do Excel?
• Como inserir uma imagem ou foto dinamicamente em uma célula com base no valor da célula no Excel?
• Como aumentar uma imagem ao clicar nela no Excel?