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:

• Come verificare rapidamente se un intervallo contiene alcuni valori in Excel?