¿Cómo verificar si una forma o imagen existe en la hoja de cálculo activa?

Por ejemplo, ya se han agregado docenas de formas o imágenes a la hoja de trabajo activa, y ahora desea verificar si una forma o imagen específica existe en la hoja activa. ¿Cómo puede realizar esta tarea rápidamente sin tener que revisar las formas o imágenes una por una? Excel no tiene una función integrada para esto, pero este artículo presenta un código VBA para determinar rápidamente si una forma o imagen existe en la hoja activa.

Verificar si una forma o imagen existe en la hoja activa

Verificar si una forma o imagen existe en la hoja activa

Por favor, aplique el siguiente código macro para verificar si una imagen específica existe en la hoja activa.

1. Presione las teclas Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue el siguiente código en el script.

VBA: Verificar si una forma o imagen existe

Sub CheckImage()
'UpdatebyExtendoffice20170927
    Dim xChar As Picture
    Dim xFlag As Boolean
    Dim xCharName As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xCharName = "cat"
    xFlag = False
    For Each xChar In ActiveSheet.Pictures
    Debug.Print xChar.Name
        If xChar.Name = xCharName Then
            MsgBox "The Image is on the Active Sheet", vbInformation, "KuTools For Excel"
            xFlag = True
            Exit For
        End If
    Next
    If Not xFlag Then
        MsgBox "The Image is Not on the Active Sheet", vbInformation, "KuTools For Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. Presione F5 para ejecutar el código, aparecerá un cuadro de diálogo que indicará si la imagen existe en la hoja activa.

Consejo: En el código macro, puede cambiar el nombre de la imagen en xCharName = "cat" para adaptarlo a sus necesidades.

Artículos relacionados:

• ¿Cómo verificar rápidamente si un rango contiene algunos valores en Excel?