Hoe kan ik controleren of een vorm of afbeelding bestaat in het actieve blad?

Er zijn bijvoorbeeld al tientallen vormen of afbeeldingen toegevoegd aan het actieve werkblad en nu wilt u controleren of een specifieke vorm of afbeelding in het actieve werkblad bestaat of niet, hoe kunt u deze taak snel afhandelen zonder de vormen of afbeeldingen een voor een? In Excel kan geen ingebouwde functie je helpen, maar in dit artikel introduceer ik een VBA-code om snel te vinden of een vorm of afbeelding in het actieve blad bestaat.

Controleer of er een vorm of afbeelding bestaat in het actieve blad

Controleer of er een vorm of afbeelding bestaat in het actieve blad

Pas onderstaande macrocode toe om te controleren of een specifieke afbeelding in het actieve blad bestaat.

1. druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module en plak onderstaande code in het script.

VBA: controleer of er een vorm of afbeelding bestaat

Sub CheckImage () 'UpdatebijExtendoffice20170927 Dim xChar As Picture Dim xFlag As Boolean Dim xCharName As String On Error Resume Next Application.ScreenUpdating = False xCharName = "cat" xFlag = False voor elke xChar in ActiveSheet.Pictures Debug.Print xChar.Name Als xChar.Name = xCharName dan MsgBox "De afbeelding staat op het actieve blad", vbInformation, "KuTools For Excel" xFlag = True Exit For End If Next If Not xFlag Then MsgBox "De afbeelding staat niet op het actieve blad", vbInformation, "KuTools For Excel" End Als Application.ScreenUpdating = True End Sub

3. druk op F5 om de code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren of de afbeelding in het actieve blad bestaat.

Tip: In de macrocode kunt u de afbeeldingsnaam wijzigen in xCharName = "kat" om aan uw behoefte te voldoen.

Relatieve artikelen:

• Hoe snel controleren of een bereik enkele waarden bevat in Excel?