¿Cómo verificar si una celda contiene una imagen en Excel?
Es fácil encontrar y seleccionar todas las imágenes en una hoja de trabajo activa en Excel. Pero, ¿sabe cómo comprobar si una celda contiene una imagen en Excel? Un método de este artículo puede ayudarte.
Verifique si una celda contiene una imagen con código VBA
Verifique si una celda contiene una imagen con código VBA
El siguiente código VBA puede ayudarlo a verificar si una celda contiene una imagen. Haz lo siguiente.
1. Abra la hoja de trabajo que necesita para verificar si la imagen existe en una celda específica, luego presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el código VBA en la ventana Código.
Código de VBA: compruebe si una celda contiene una imagen en 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. presione el F5 clave para ejecutar el código. En el apareciendo Kutools for Excel cuadro de diálogo, ingrese la celda que desea verificar si contiene una imagen y luego haga clic en OK botón. Ver captura de pantalla:
4. Luego aparecerá un cuadro de diálogo como se muestra a continuación en la captura de pantalla si existe o no una imagen en la celda especificada.
Artículos relacionados:
- ¿Cómo cambiar automáticamente todas las imágenes para moverlas y cambiar el tamaño con las celdas en Excel?
- ¿Cómo centrar una imagen en una celda de Excel?
- ¿Cómo insertar una imagen o una imagen dinámicamente en la celda según el valor de la celda en Excel?
- ¿Cómo agrandar la imagen al hacer clic en ella en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!