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

Ինչպե՞ս չափափոխել բազմաթիվ բջիջներ ՝ Excel- ում նկարներն արագ տեղադրելու համար:

Ինչպես գիտենք, Microsoft Excel- ն աջակցում է բջիջի տողի բարձրության և սյունակի լայնության ավտոմատ չափափոխմանը ՝ լրացված բովանդակությունը տեղավորելու համար, օրինակ ՝ տեքստի երկար տողը: Այնուամենայնիվ, AutoFit շարքի բարձրության հրամանը և AutoFit սյունակի լայնության հրամանը վավեր չեն նկարի համար, քանի որ տեղադրված նկարը չի գտնվում որոշակի բջիջում:

Չափափոխեք բջիջները ՝ VBA- ով նկարներ տեղադրելու համար

Պատկերները չափափոխեք ՝ Excel- ի համար Kutools- ով բջիջները տեղավորելու համար լավ գաղափար 3


Չափափոխեք բջիջները ՝ VBA- ով նկարներ տեղադրելու համար

Ենթադրելով, որ աշխատանքային թերթում կա երկու մեծ նկար, տե՛ս հետևյալ նկարը էկրանին: Ինչ-որ մեկը գուցե ցանկանա չափափոխել բջիջը `բջջի վերևում տեղադրված նկարը տեղավորելու համար: Բայց ինչպե՞ս դա գիտակցել:

doc- չափափոխել-բջիջը ՝ համապատասխանելու համար նկարը 1

Իհարկե, յուրաքանչյուր բջիջ կարող եք ինքնաբերաբար չափափոխել, որպեսզի դրանց վերևում տեղադրվեն նկարներ: Այնուամենայնիվ, մի շարք նկարների համար դա կարող է ձանձրալի և ժամանակատար լինել: Իրականում, մենք կարող ենք կիրառել VB մակրո ՝ բոլոր բջիջները չափափոխելու համար, որպեսզի դրանց վերևում տեղադրվեն նկարներ: Դուք կարող եք դա անել հետևյալ քայլերով.

Քայլ 1: Անջատեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

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

VBA. Չափափոխել բազմաթիվ բջիջներ ՝ նրանց նկարներին համապատասխանելու համար:

Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub

Քայլ 3. Սեղմեք կոճակը F5 այս մակրո գործարկման բանալին:

Այժմ ընթացիկ աշխատաթերթում, եթե նկարներ կան, նկարի տակ գտնվող բջիջը կփոխվի, որպեսզի համապատասխանի դրա վերևում գտնվող նկարին: Տե՛ս հետևյալ նկարը.

doc- չափափոխել-բջիջը ՝ համապատասխանելու համար նկարը 2


Պատկերները չափափոխեք ՝ Excel- ի համար Kutools- ով բջիջները տեղավորելու համար

Եթե ​​դուք կարգաբերել եք բջիջների չափը, ինչպես ցույց է տրված նկարում նշված էկրանի նկարում, և այնուհետև ցանկանում եք ներմուծել և չափափոխել նկարները ՝ բջիջների չափերին համապատասխանելու համար, ինչպե՞ս կարող եք արագ անել: Այս դեպքում, Excel- ի համար նախատեսված գործիքներ's Նկարների ներմուծում օգտակարությունը կարող է օգնել ձեզ հեշտությամբ կարգավորել այս աշխատանքը:
doc չափափոխել նկարը տեղավորվում է բջիջում 1

Excel- ի համար նախատեսված գործիքներ, ավելի քան 120 հարմար գործառույթներ, հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև :(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1: սեղմեք ձեռնարկություն > Ներմուծում / Արտահանում > Ներմուծեք նկարներ, Տեսեք,
doc չափափոխել նկարը տեղավորվում է բջիջում 2

2. Բռնում Ներմուծեք նկարներ երկխոսություն, նախ կարող եք ներմուծման կարգը նշել Ներմուծման պատվեր բաժինը, ապա կտտացրեք Ավելացնել կոճակը թղթապանակից կամ ֆայլերից մեկ առ մեկ նկարներ ավելացնելու համար, այնուհետև կտեսնեք, որ նկարները ցուցակում են Պատկեր Բաժին. Տեսեք,
doc չափափոխել նկարը տեղավորվում է բջիջում 3

3. Այնուհետեւ կտտացրեք Ներմուծում ցույց տալու կոճակը Ներմուծեք նկարի չափը երկխոսություն, ապա ստուգեք Համապատասխանեցված բջիջի չափը տարբերակ: Տեսեք,
doc չափափոխել նկարը տեղավորվում է բջիջում 4

4: սեղմեք OK > Ներմուծում երկխոսություն ցուցադրելու համար այն բջիջները ընտրելու համար, որոնք ցանկանում եք նկարներ ներմուծել: Տեսեք,
doc չափափոխել նկարը տեղավորվում է բջիջում 5

5: սեղմեք OK, և այժմ բոլոր կտորները ներմուծվում են բջիջներ և չափերի չափը վերածվում են բջիջների:
doc չափափոխել նկարը տեղավորվում է բջիջում 6


Related հոդվածը:
Ինչպե՞ս Excel- ում բազմաթիվ նկարներ տեղադրել բջջի մեջ:

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

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

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

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How did you get come up with the formula (Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288))? It's close but there is still a gap to the right as shown in your screenshot.
This comment was minimized by the moderator on the site
Great and all, but i already had pictures in cells and by using the first option it obliterated like 99% of all photos already present. None were spared except for one photo which was resized beautifully except that the width of the photo was a bit thin.
This comment was minimized by the moderator on the site
Hello Thank you for the macro. I cannot get to work in my computer though. I use Excel 2011 for Mac Any ideas? Thanks
This comment was minimized by the moderator on the site
Hi, great macro - small correction with greater OR EQUAL in the 16 row If Rows(N).Top >= PictureTop Then
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations