Come verificare se una forma o un'immagine esiste nel foglio di lavoro attivo?
Ad esempio, ci sono già dozzine di forme o immagini aggiunte al foglio di lavoro attivo e ora vuoi verificare se una forma o un'immagine specifica esiste nel foglio di lavoro corrente. Come puoi eseguire rapidamente questa operazione senza controllare le forme o le immagini una per una? Excel non ha una funzione integrata per questo, ma in questo articolo viene introdotto un codice VBA per determinare rapidamente se una forma o un'immagine esiste nel foglio di lavoro attivo.
Verifica se una forma o un'immagine esiste nel foglio di lavoro attivo
Verifica se una forma o un'immagine esiste nel foglio di lavoro attivo
Applica la seguente macro per verificare se un'immagine specifica esiste nel foglio di lavoro attivo.
1. Premi i tasti Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications.
2. Clicca su Inserisci > Modulo e incolla il codice sottostante nello script.
VBA: Verifica se una forma o un'immagine esiste
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. Premi F5 per eseguire il codice; apparirà una finestra di dialogo che indicherà se l'immagine esiste nel foglio di lavoro attivo.
 |  |
Suggerimento: Nel codice della macro, puoi cambiare il nome dell'immagine in xCharName = "cat" per adattarlo alle tue esigenze.
Articoli correlati:
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in