Ինչպե՞ս ստուգել, արդյոք գոյություն ունի ձև կամ պատկեր ակտիվ թերթում:
Օրինակ, ակտիվ աշխատանքային թերթում արդեն տասնյակ ձևեր կամ պատկերներ են ավելացվել, և այժմ դուք ցանկանում եք ստուգել, թե արդյոք գործող թերթում կա որոշակի ձև կամ պատկեր, թե ինչպես, ինչպե՞ս կարող եք արագ կարգավորել այս աշխատանքը `առանց ստուգելու ձևերը կամ պատկերները մեկ առ մեկ? Excel- ում ոչ մի ներկառուցված գործառույթ չի կարող օգնել ձեզ, բայց այս հոդվածում ես ներմուծում եմ VBA կոդ ՝ արագորեն պարզելու համար, թե արդյոք ակտիվ թերթիկում կա ձև կամ պատկեր:
Ստուգեք, արդյոք գոյություն ունի ձև կամ պատկեր ակտիվ թերթում
Ստուգեք, արդյոք գոյություն ունի ձև կամ պատկեր ակտիվ թերթում
Խնդրում ենք կիրառել մակրո կոդից ներքև ՝ ստուգելու համար, արդյոք կա որոշակի պատկեր ակտիվ թերթում:
1. Մամուլ Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ և ներքևում տեղադրեք կոդը սցենարում:
VBA. Ստուգեք, արդյոք գոյություն ունի ձև կամ պատկեր
Sub CheckImage () 'UpdatebyExtendoffice20170927 Dim xChar As Picture Dim xFlag As Boolean Dim xCharName As String On Error Resume Next Application.ScreenUpdating = False xCharName = "կատու" xFlag = Կեղծ յուրաքանչյուր xChar- ի համար ActiveSheet.Pictures Debug.Print xChar.Name If xChar.Name MsgBox «Պատկերը ակտիվ թերթիկում է», vbInformation, «KuTools For Excel» xFlag = ueշմարիտ ելք վերջի համար, եթե հաջորդը լինի xFlag, ապա MsgBox «Պատկերը ակտիվ թերթիկում չէ», vbInformation, «KuTools Excel- ի համար» վերջ Եթե Application.ScreenUpdating = True End Ենթ
3. Մամուլ F5 Կոդը գործարկելու համար բացվում է երկխոսություն ՝ հիշեցնելու համար, եթե պատկերը գոյություն ունի ակտիվ թերթում:
ԱկնարկՄակրո կոդում պատկերի անունը կարող եք փոխել xCharName = "կատու" ձեր կարիքը բավարարելու համար:
Հարաբերական հոդվածներ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: