Hogyan ellenőrizhető, hogy van-e forma vagy kép az aktív munkalapon?
Például tucatnyi alak vagy kép került hozzáadásra az aktív munkalapra, és most ellenőrizni szeretné, hogy van-e egy adott alak vagy kép az aktív munkalapon, vagy sem, hogyan tudja ezt a feladatot gyorsan kezelni anélkül, hogy ellenőrizné az alakzatokat, ill. képek egyenként? Az Excel programban egyetlen beépített funkció sem segíthet, de ebben a cikkben bemutatok egy VBA kódot, hogy gyorsan kiderüljön, létezik-e forma vagy kép az aktív lapon.
Ellenőrizze, hogy van-e alak vagy kép az aktív munkalapon
Ellenőrizze, hogy van-e alak vagy kép az aktív munkalapon
Kérjük, alkalmazza az alábbi makrókódot annak ellenőrzéséhez, hogy létezik-e egy adott kép az aktív lapon.
1. nyomja meg Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok és illessze be a kód alatt a szkriptbe.
VBA: Ellenőrizze, hogy létezik-e forma vagy kép
Sub CheckImage () 'UpdatebyExtendoffice20170927
Dim xChar Képként
Dim xFlag Boolean
Dim xCharName As String
Hiba esetén Folytatás a következőre
Application.ScreenUpdating = Hamis
xCharName = "macska"
xFlag = Hamis
Minden xCharhoz az ActiveSheet.Picturesben
Debug.Print xChar.Name
Ha xChar.Name = xCharName Akkor
MsgBox "A kép az aktív lapon van", vbInformation, "KuTools for Excel"
xFlag = Igaz
Kilépés ehhez
Vége Ha
Következő
Ha nem xFlag Akkor
MsgBox "A kép nincs az aktív lapon", vbInformation, "KuTools for Excel"
Vége Ha
Application.ScreenUpdating = Igaz
Vége Sub
3. nyomja meg F5 a kód futtatásához megjelenik egy párbeszédpanel, amely emlékezteti Önt, ha a kép létezik az aktív munkalapon.
 |
 |
típus: A makrokódban megváltoztathatja a kép nevét xCharName = "macska" hogy megfeleljen az Ön igényeinek.
Relatív cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
