Hur kontrollerar jag om en form eller bild finns i det aktiva arket?

Det finns till exempel dussintals former eller bilder som redan har lagts till i det aktiva kalkylbladet, och nu vill du kontrollera om en specifik form eller bild finns i det aktiva bladet. Hur kan du snabbt utföra denna uppgift utan att kontrollera formerna eller bilderna en efter en? Excel har ingen inbyggd funktion för detta, men den här artikeln introducerar en VBA-kod för att snabbt avgöra om en form eller bild finns i det aktiva arket.

Kontrollera om det finns en form eller bild i det aktiva arket

Kontrollera om det finns en form eller bild i det aktiva arket

Använd nedanstående makrokod för att kontrollera om en specifik bild finns i det aktiva arket.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna och klistra in under koden i skriptet.

VBA: Kontrollera om det finns en form eller bild

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. Tryck F5 för att köra koden visas en dialogruta för att indikera om bilden finns i det aktiva arket.

Tips: I makrokoden kan du ändra bildnamnet i xCharName = "katt" för att passa dina krav.

Relaterade artiklar:

• Hur kontrollerar jag snabbt om ett intervall innehåller några värden i Excel?