¿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:
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos