Come verificare se una forma o un'immagine esiste nel foglio di lavoro attivo?
Ad esempio, nel foglio di lavoro attuale sono già presenti decine di forme o immagini e ora si desidera verificare rapidamente se una forma o un’immagine specifica esiste nel foglio corrente. Come fare senza doverle controllare una per una? Excel non offre una funzione integrata per questo scopo, ma in questo articolo trovi un codice VBA che ti permette di individuare in modo rapido ed efficiente la presenza di una forma o un’immagine nel foglio di lavoro corrente.
Verifica se una forma o un'immagine esiste Foglio di lavoro attivo
Verifica se una forma o un'immagine esiste Foglio di lavoro attivo
Applica la seguente macro per verificare se un'immagine specifica è presente nel foglio di lavoro corrente.
1. Premere Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fare clic su Inserisci > Modulo e incollare il codice seguente 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. Premere F5 per eseguire il codice; apparirà una finestra di dialogo che indica se l'immagine è presente nel foglio di lavoro corrente.
 |  |
Suggerimento: Nel codice macro, puoi modificare il nome dell'immagine in xCharName = «cat» in base alle tue esigenze.
Articoli correlati:
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 oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi