Jak zkontrolovat, zda na aktivním listu existuje tvar nebo obrázek?
Například již byly do aktivního listu přidány desítky tvarů nebo obrázků a nyní chcete zkontrolovat, zda konkrétní tvar nebo obrázek na aktivním listu existuje nebo ne, jak můžete rychle zpracovat tuto úlohu bez kontroly tvarů nebo obrázky jeden po druhém? V aplikaci Excel vám žádná vestavěná funkce nemůže pomoci, ale v tomto článku představuji kód VBA, který rychle najde, zda na aktivním listu existuje tvar nebo obrázek.
Zkontrolujte, zda na aktivním listu existuje tvar nebo obrázek
Zkontrolujte, zda na aktivním listu existuje tvar nebo obrázek
Použijte níže uvedený kód makra a zkontrolujte, zda na aktivním listu existuje konkrétní obrázek.
1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modul a vložte níže uvedený kód do skriptu.
VBA: Zkontrolujte, zda existuje tvar nebo obrázek
Sub CheckImage () 'UpdatebyExtendoffice20170927 Dim xChar jako obrázek Dim xFlag jako Boolean Dim xCharName jako řetězec při chybě Obnovit další Application.ScreenUpdating = False xCharName = "kočka" xFlag = False pro každý xChar v ActiveSheet.Pictures Debug.Print xChar.Name Pokud xChar.Name = xCharName Potom MsgBox "Obrázek je na aktivním listu", vbInformation, "KuTools pro Excel" xFlag = Pravý konec pro konec, pokud další, pokud ne xFlag, pak MsgBox "Obrázek není na aktivním listu", vbInformation, "KuTools pro Excel", konec If Application.ScreenUpdating = True End Sub
3. lis F5 ke spuštění kódu se zobrazí dialogové okno, které vám připomene, zda obrázek existuje na aktivním listu.
Tip: V kódu makra můžete změnit název obrázku v xCharName = "kočka" aby vyhovovaly vašim potřebám.
Relativní články:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!