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

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

Սովորաբար տեղադրված նկարները սավառնում են բջիջների վրա, և ժամանակի մեծ մասը մեկ նկարն ընդգրկում է շատ բջիջներ: Եթե ​​մի աշխատաթերթ ունի մեծ թվով նկարներ, գուցե ցանկանաք յուրաքանչյուր նկար դնել մեկ բջիջի մեջ: Բայց ինչպես վարվել դրա հետ: Իրականում, կան մի քանի բարդ եղանակներ, որոնք կօգնեն մեզ չափափոխել նկարները ՝ բջիջների չափերին արագ տեղավորելու համար:

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

Փոխեք տեղադրված նկարները `Excel- ի համար Kutools- ով բջիջները տեղավորելու համար


նետ կապույտ աջ պղպջակ Չափափոխեք ընտրված նկարը ՝ VB մակրոի հետ մեկ բջիջ տեղադրելու համար

Մենք կարող ենք կիրառել VB մակրոներ ՝ ընտրված նկարը չափափոխելու համար ՝ մեկ բջիջ տեղավորելու համար, բայց ոչ ձեռքով չափափոխել նկարի լայնությունը և բարձրությունը: Դուք կարող եք դա անել հետևյալ քայլերով.

Քայլ 1. Ներդրեք նկարները աշխատանքային թերթիկում և ընտրեք այն նկարը, որը կփոխեք չափի, որպեսզի տեղավորվի մեկ բջիջ:

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

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

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

VBA. Ընտրված նկարը չափափոխեք ՝ բջիջը տեղավորելու համար:

Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub

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

Քայլ 5. Կրկնեք վերոհիշյալ քայլերը ՝ մեկ այլ բջջի համար հարմարեցված այլ նկարներ չափափոխելու համար

Այժմ տեղադրված բոլոր նկարները չափափոխված են և տեղավորվում են բջիջների մեջ: Տե՛ս հետևյալ նկարը.

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

ՆշումԴուք կարող եք մեկ անգամ չափափոխել միայն մեկ նկար: Եթե ​​միանգամից ընտրեք մեկից ավելի նկարներ, կհայտնվի նախազգուշական երկխոսության տուփ:


նետ կապույտ աջ պղպջակ Փոխեք տեղադրված նկարները `Excel- ի համար Kutools- ով բջիջները տեղավորելու համար

Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներ տեղադրված, դուք կարող եք կիրառել այն Ներմուծեք նկարներ գործիք `բոլոր նկարները չափափոխելու համար` բջիջները տեղավորելու կամ ֆիքսված բարձրությամբ նկարներ տեղադրելու ժամանակ:

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

Քայլ 1. Ընտրեք ընդգրկույթի բջիջները, որոնք ցանկանում եք նկարներ տեղադրել, և կտտացրեք այն ձեռնարկություն >Ներմուծում / Արտահանում > Ներմուծեք նկարներ, Տե՛ս հետևյալ նկարը.

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

Քայլ 2. Դեպի Ներմուծեք նկարներ երկխոսության տուփ, ընտրեք ներմուծման կարգը բացվող ցուցակում և կտտացրեք Ավելացնել կոճակը ֆայլից կամ թղթապանակից ձեզ համար անհրաժեշտ նկարներ ավելացնելու համար, ապա կտտացրեք չափ կոճակ Տեսեք,

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

Քայլ 3. Ստուգեք Համապատասխանեցված բջիջի չափը տարբերակը: Այնուհետեւ կտտացրեք Ok > Ներմուծում երկխոսությունները փակելու համար: Տեսեք,

Doc- չափափոխել-նկարը-համապատասխան-բջջի -3

Այժմ դուք կարող եք տեսնել, որ նկարները տեղադրված են բջիջներին համապատասխանելու համար:

Doc- չափափոխել-նկարը-համապատասխան-բջջի -4

ՆշումՆկարները չափափոխելու համար կարող եք նաև 3-րդ քայլում նշել բջջի բարձրությունը և լայնությունը:

Եթե ​​ցանկանում եք ավելին իմանալ այս մասին Ներմուծել նկարը առանձնահատկություն, խնդրում ենք այցելել այստեղ.


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 (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
La macro posiziona l'immagine "Immagine 2" al centro della cella ("D5"), anche se questa è unita ad altre celle. Spero possa esservi utile

Sub ImpFoto()
Dim hcell As Single ' altezza cella
Dim Lcell As Single ' larghezza cella
Dim hfoto As Single ' altezza foto
Dim Lfoto As Single ' larghezza foto
Dim Rfoto As Single ' rapporto foto h/L

Range("D5").Select

hcell = Selection.Height
Lcell = Selection.Width
hfoto = ActiveSheet.Shapes("Immagine 2").Height
Lfoto = ActiveSheet.Shapes("Immagine 2").Width
Rfoto = hfoto / Lfoto

If hfoto < Lfoto Then
Lfoto = Lcell - 10
hfoto = Lfoto * Rfoto

If hfoto > hcell Then
hfoto = hcell - 3
Lfoto = hfoto / Rfoto
End If

ActiveSheet.Shapes("Immagine 2").Height = hfoto
ActiveSheet.Shapes("Immagine 2").Width = Lfoto
Else
hfoto = hcell - 10
Lfoto = hfoto / Rfoto
ActiveSheet.Shapes("Immagine 2").Height = hfoto
ActiveSheet.Shapes("Immagine 2").Width = Lfoto
End If

Range("D5").Select

With ActiveSheet.Shapes("Immagine 2")
.Top = Selection.Top + (Selection.Height - .Height) / 2
.Left = Selection.Left + (Selection.Width - .Width) / 2
End With
End Sub
This comment was minimized by the moderator on the site
Thank you, it really works!
This comment was minimized by the moderator on the site
Hi, Need this code disabling the lock aspect ratio
This comment was minimized by the moderator on the site
Hi..
perfact solution. But i want that function to work with command button. i need to make a command button to insert and auto resize to cell size. please help.
This comment was minimized by the moderator on the site
Brilliant! Works great! Just what I was looking for! Thank you!
This comment was minimized by the moderator on the site
it works if the cells are not merged. unfortunately, I merged some cells and it fits only in the upper left cell which makes the photo very tiny.
This comment was minimized by the moderator on the site
Hi, I really love this macro that makes images fit cells, it really helped me with some work stuff. But does anyone know how to write this code for applescript? I have to use macs and the apple version of excel, Numbers, only uses applescript. Help! Many thanks, Harry
This comment was minimized by the moderator on the site
Thanks it did work but I have about 500 pictures so I don't want to do them one at a time - how do I do them all at the same time please?
This comment was minimized by the moderator on the site
Works!! But i have one question, i want to fit a img in a range of cells merged, how can i do it?
This comment was minimized by the moderator on the site
Public Sub FitPic()
'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
'Slight modification to resize into merged cells
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.MergeArea.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.MergeArea.Height
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.MergeArea.Top
.Left = .TopLeftCell.MergeArea.Left
.Placement = xlMoveAndSize
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub
This comment was minimized by the moderator on the site
[quote]Works!! But i have one question, i want to fit a img in a range of cells merged, how can i do it?By Marcelo[/quote] Marcelo did you get the updated marco for the merged cell? I am trying to do the same thing. thanks
This comment was minimized by the moderator on the site
I tried this macro last night and it adjust only the height. The width it doesn't incorrectly. Any Help please?
This comment was minimized by the moderator on the site
Thank you this was perfect!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations