Come verificare se una forma o un'immagine esiste nel foglio attivo?
Ad esempio, sono già state aggiunte dozzine di forme o immagini nel foglio di lavoro attivo e ora si desidera verificare se una forma o un'immagine specifica esiste o meno nel foglio attivo, come è possibile gestire rapidamente questo lavoro senza controllare le forme o immagini una per una? In Excel, nessuna funzione integrata può aiutarti, ma in questo articolo introduco un codice VBA per trovare rapidamente se una forma o un'immagine esiste nel foglio attivo.
Controlla se una forma o un'immagine esiste nel foglio attivo
Controlla se una forma o un'immagine esiste nel foglio attivo
Si prega di applicare il codice macro riportato di seguito per verificare se esiste un'immagine specifica nel foglio attivo.
1. Stampa Alt + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli e incolla il codice sottostante nello script.
VBA: controlla se esiste una forma o un'immagine
Sub CheckImage () 'UpdatebyExtendoffice20170927
Dim xChar come immagine
Dim xFlag come booleano
Dim xCharName come stringa
In caso di errore Riprendi successivo
Application.ScreenUpdating = Falso
xCharName = "gatto"
xFlag = Falso
Per ogni xChar in ActiveSheet.Pictures
Debug.Print xChar.Nome
Se xChar.Name = xCharName Allora
MsgBox "L'immagine è sul foglio attivo", vbInformation, "KuTools per Excel"
xFlag = Vero
Esci per
Finisci se
Prossimo
Se non xFlag allora
MsgBox "L'immagine non è sul foglio attivo", vbInformation, "KuTools For Excel"
Finisci se
Application.ScreenUpdating = Vero
Fine sott
3. Stampa F5 per eseguire il codice, viene visualizzata una finestra di dialogo per ricordarti se l'immagine esiste nel foglio attivo.
 |
 |
Consiglio: Nel codice della macro, puoi cambiare il nome dell'immagine in xCharName = "gatto" per soddisfare le tue necessità.
Articoli relativi:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
