Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ջնջել բոլոր նկարները մի շարք բջիջներում:

Եթե ​​ձեր աշխատաթերթում կան բազմաթիվ նկարներ, ապա այժմ դրանցից մի քանիսը ցանկանում եք ջնջել նշված տիրույթում, ինչպե՞ս եք դրանով զբաղվում արագ:

Deleteնջեք բոլոր նկարները VBA կոդով բջիջների որոշակի տիրույթում

Utնջեք բոլոր նկարները աշխատաթերթում կամ ամբողջ աշխատանքային գրքում Kutools- ի համար Excel- ի համար


Deleteնջեք բոլոր նկարները VBA կոդով բջիջների որոշակի տիրույթում

Ահա մի պարզ VBA կոդ, որը կօգնի ձեզ ջնջել պատկերները ընտրված տիրույթում ՝ առանց դրանց հատ առ հատ ջնջելու, արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Ջնջել բոլոր նկարները բջիջների ընտրված տիրույթում.

Sub DeletePic()
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("A5:B8")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

ՆշումՎերոհիշյալ ծածկագրում A5: B8 այն միջակայքն է, որից ցանկանում եք ջնջել նկարները, խնդրում ենք փոխել այն ըստ ձեր կարիքի:

3, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և ընտրված տիրույթի նկարները միանգամից ջնջվել են, տես սքրինշոթը՝


Utնջեք բոլոր նկարները աշխատաթերթում կամ ամբողջ աշխատանքային գրքում Kutools- ի համար Excel- ի համար

Եթե ​​Ձեզ անհրաժեշտ է ջնջել բոլոր պատկերները աշխատաթերթից կամ աշխատանքային գրքույկից, ապա Excel- ի համար նախատեսված գործիքներ »s Deleteնջել նկարազարդումները և առարկաները օգտակարությունը կարող է լավություն առաջացնել:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1: Սեղմեք Կուտոլս > ջնջել > Deleteնջել նկարազարդումները և առարկաները, տես նկարի նկարը.

2, Մեջ Deleteնջել նկարազարդումները և առարկաները երկխոսության տուփ, ստուգեք Pictures - ից ջնջել բաժինը, այնուհետև ընտրեք այն շրջանակը, որի տակից ցանկանում եք ջնջել նկարները տես բաժին, տես նկարի նկարը.

3. Այնուհետեւ կտտացրեք Ok կոճակը, և բոլոր նկարները կջնջվեն աշխատաթերթից կամ ամբողջ աշխատանքային գրքույկից, ինչպես ընտրել եք:

Կտտացրեք Kutools-ը ներբեռնելու համար Excel-ի և անվճար փորձարկման համար:

Գրասենյակի արտադրողականության լավագույն գործիքները

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations