¿Cómo comprobar si existe una forma o imagen en la hoja activa?
Por ejemplo, ya se han agregado docenas de formas o imágenes en la hoja de trabajo activa, y ahora desea verificar si existe una forma o imagen específica en la hoja activa o no, ¿cómo puede manejar rápidamente este trabajo sin verificar las formas o imágenes una por una? En Excel, ninguna función incorporada puede ayudarlo, pero en este artículo, presento un código VBA para encontrar rápidamente si existe una forma o imagen en la hoja activa.
Compruebe si existe una forma o imagen en la hoja activa
Compruebe si existe una forma o imagen en la hoja activa
Aplique el siguiente código de macro para verificar si existe una imagen específica en la hoja activa.
1. Prensa Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo y pegue el siguiente código en el script.
VBA: compruebe si existe una forma o imagen
Sub CheckImage () 'Actualización porExtendoffice20170927 Atenuar xChar como imagen Atenuar xFlag como booleano Atenuar xCharName como cadena en caso de error Reanudar la siguiente aplicación.ScreenUpdating = False xCharName = "cat" xFlag = False para cada xChar en ActiveSheet.Pictures Debug.Print xChar.Name Si xChar.Name = xCharName Entonces MsgBox "La imagen está en la hoja activa", vbInformation, "KuTools para Excel" xFlag = True Salir para el final Si es el siguiente Si no es xFlag Entonces MsgBox "La imagen no está en la hoja activa", vbInformation, "KuTools para Excel" Fin Si Application.ScreenUpdating = True End Sub
3. Prensa F5 para ejecutar el código, aparece un cuadro de diálogo para recordarle si la imagen existe en la hoja activa.
Consejo: En el código de macro, puede cambiar el nombre de la imagen en xCharName = "gato" para satisfacer su necesidad
Artículos relativos:
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!