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

Ինչպե՞ս տեղադրել Excel- ում մի քանի նկարներ և միանգամից չափափոխել դրանք:

Մեզ համար հեշտ է տեղադրել մեկ նկար Excel- ում, բայց եթե ձեզ հարկավոր է միանգամից տեղադրել մի քանի նկար, որպեսզի կարողանան շատ ժամանակ խնայել, ինչպե՞ս կարող եք անել:


Տեղադրեք բազմաթիվ նկարներ և մեծ քանակությամբ չափափոխեք ՝ Տեղադրեք նկար հատկության միջոցով

Excel- ում (Ներդիր) Նկար հատկանիշով մենք կարող ենք մեծ թվով նկարներ տեղադրել, ապա միաժամանակ չափափոխել դրանք: Խնդրում ենք անել հետևյալը.

1, Աշխատաթերթում կտտացրեք Տեղադրել > Պատկեր.

2, Տեղադրեք նկարը երկխոսության մեջ, խնդրում ենք բացել այն թղթապանակը, որը պարունակում է ձեր տեղադրած նկարները, ընտրեք բազմաթիվ նկարներ, որքան ձեզ հարկավոր է և կտտացրեք այն Տեղադրել կոճակ Տեսեք,
ՆշումՀոլդինգ Ctrl ստեղնը, դուք կարող եք ընտրել բազմաթիվ ոչ հարակից նկարներ ՝ դրանց մեկ առ մեկ կտտոցով: անցկացնելը Հերթափոխություն ստեղնը, կարող եք ընտրել հարակից բազմաթիվ նկարներ ՝ կտտացնելով առաջին նկարը և վերջինը:

Այժմ նկարները ներմուծվում են մասսայական և տեղադրվում են աշխատանքային թերթում:

3, Այս նկարները ընտրված պահեք և մեծ չափով չափափոխեք դրանք ՝ երկուսում էլ նոր համար մուտքագրելով Լայնություն և բարձրություն տուփեր մեջ չափ խմբում Ֆորմատ ներդիր Տեսեք,

Այժմ տեղադրված բոլոր նկարները միանգամից փոխվում են նույն չափի:

4, Ներկայումս անհրաժեշտ է յուրաքանչյուր նկար ձեռքով առանձին տեղափոխել համապատասխան տեղ:

ՆշումԵթե ​​կան տասնյակ նկարներ, որոնք հավաքում են միմյանց, դրանք շատ ժամանակատար կլինեն ձեռքով տեղափոխել դրանք համապատասխան վայրեր:

Excel- ում խմբաքանակով տեղադրեք բջիջների պարունակությանը համապատասխանող բազմաթիվ նկարներ

The Համապատասխանի ներմուծման նկարները Kutools- ի Excel- ի առանձնահատկությունը ֆանտաստիկ գործիք է, որը կարող է խմբաքանակ ներմուծել և տեղադրել բազմաթիվ նկարներ `հիմնված բջջային բովանդակության վրա, և ներմուծված նկարները նույն չափով, ինչպես բջջի չափը կամ նշված չափը հեշտությամբ չափափոխել:


գովազդի ներմուծման նկարներ 01

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now

Տեղադրեք բազմաթիվ նկարներ և մեծ քանակությամբ չափափոխեք OneNote- ի հետ

Որպեսզի նկարները միմյանց հերթով չտեղափոխեն, այս մեթոդը ներկայացնում է մեկ այլ հնարք ՝ OneNote- ի օգնությամբ բազմաթիվ նկարներ տեղադրելու համար: Խնդրում ենք անել հետևյալը.

1, Գործարկել OneNote- ը և ստեղծել նոր էջ: Եվ հետո կտտացրեք Տեղադրել > Պատկեր.

2, Տեղադրեք նկարը երկխոսության մեջ, խնդրում ենք բացել այն թղթապանակը, որը պարունակում է ձեր տեղադրած նկարները, ընտրեք բազմաթիվ նկարներ, որքան ձեզ հարկավոր է և կտտացրեք այն Տեղադրել կոճակ Տեսեք,
ՆշումՀոլդինգ Ctrl ստեղնը, դուք կարող եք ընտրել բազմաթիվ ոչ հարակից նկարներ ՝ դրանց մեկ առ մեկ կտտոցով: անցկացնելը Հերթափոխություն ստեղնը, կարող եք ընտրել հարակից բազմաթիվ նկարներ ՝ կտտացնելով առաջին նկարը և վերջինը:

Doc տեղադրեք բազմաթիվ նկարներ OneNote 032

3. Մամուլ Ctrl + A ստեղները ՝ OneNote- ում տեղադրված բոլոր նկարներն ընտրելու համար, ապա սեղմել Ctrl + C դրանք պատճենելու բանալիներ:

4, Գնացեք աշխատաթերթը Excel- ում և սեղմեք Ctrl + V նկարները աշխատանքային էջում տեղադրելու ստեղները: Այժմ բոլոր նկարները տեղադրվում են ուղղահայաց, ինչպես ցույց է տրված ձախ սքրինշոթը:

5. Ընտրեք նկարներից որևէ մեկը և սեղմեք Ctrl + A բոլորին ընտրելու ստեղները: Դրանից հետո մասսայականորեն մեծացրեք նկարները ՝ երկուսում էլ նոր թվեր մուտքագրելով Լայնություն և բարձրություն տուփեր մեջ չափ խմբում Ֆորմատ ներդիր Տեսեք,

Այժմ նշված բոլոր նկարները տեղադրվում են Excel- ում և մեծ մասամբ չափափոխվում նույն չափի:


Տեղադրեք բազմաթիվ նկարներ Excel- ում `VBA կոդով

Հետևյալ VBA կոդով դուք կարող եք բազմաթիվ նկարներ տեղադրել Excel ֆայլի մեջ բջիջ առ բջիջ:

1, Ընտրեք նպատակակետի տիրույթի առաջին բջիջը, որը ցանկանում եք նկարներ տեղադրել:

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

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

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4, Դրանից հետո սեղմեք F5 ստեղն ՝ այս կոդը գործելու համար:

5, Բաց երկխոսության մեջ խնդրում ենք բացել այն թղթապանակը, որը պարունակում է նկարներ, որոնք ցանկանում եք տեղադրել, ընտրեք բազմաթիվ նկարներ, որոնք դուք կներդնեք և կտտացրեք բաց կոճակ Եվ բոլոր ընտրված նկարները ներմուծվել են ձեր ընտրության մեջ ՝ ելնելով բջիջի չափից: Տեսեք,


Տեղադրեք բազմաթիվ նկարներ և դրանք ավտոմատ կերպով կարգավորեք Kutools- ի համար Excel- ի համար

Excel- ի համար նախատեսված գործիքներ'S Ներմուծեք նկարներ օգտակար ծրագիրը կարող է օգնել ձեզ արագորեն տեղադրել Excel- ի բազմաթիվ նկարներ `հիմնված բջիջի չափի կամ նկարի չափի վրա: Նկարների բարձրությունը և լայնությունը կարող եք նշել նաև ձեր անհրաժեշտության դեպքում:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now

1: Սեղմեք Kutools Plus > Ներմուծման արտահանման > Ներմուծեք նկարներ, տես նկարի նկարը.

2, Մեջ Ներմուծեք նկարներ երկխոսության տուփ, խնդրում ենք անել հետևյալը.
(1) Նշեք նկարների ցուցադրման կարգը Ներմուծման պատվեր բացվող ցուցակ, կարող եք ընտրել Լրացրեք ուղղահայաց բջիջը բջիջից հետո or Լրացրեք հորիզոնականորեն բջիջը բջիջից հետո.
(2) Սեղմեք Ավելացնել պատկերների ֆայլերը կամ պանակը ընտրելու կոճակը ՝ նկարները Նկարների ցանկում ավելացնելու համար: Եվ ձեր ընտրած բոլոր նկարները նշված կլինեն ցուցակի վանդակում:
(3) Կտտացրեք այն կոճակին Ներմուծման չափը կոճակ;

3. Այժմ Ներմուծեք նկարի չափը երկխոսություն, դուք կարող եք ընտրել նկարի չափը համապատասխանող ձեր պահանջին: Տեսեք,

4, Նկարի չափը նշելուց հետո սեղմեք OK փակել այս երկխոսությունը և վերադառնալ Ներմուծեք նկարներ երկխոսություն, սեղմեք Ներմուծում պատկերները ներմուծելու կոճակ:

5, Նոր Նկարներ ներմուծման երկխոսության դաշտում ընտրեք նպատակակետի տիրույթի առաջին բջիջը, որը կտեղադրեք նկարներ և կտտացրեք այն OK կոճակը:

Ներկայումս ձեր ընտրած բոլոր նկարները ակտիվ բջիջից ուղղահայաց կամ հորիզոնական տեղադրված են ձեր բջիջների մեջ: Տեսեք աջ էկրանի նկարը.

The Ներմուծեք նկարներ Excel- ի համար Kutools- ի առանձնահատկությունը նախատեսված է նկարների խմբաքանակ միաժամանակ տեղադրելու համար Excel- ում համապատասխան բջիջի չափը, նշված չափը կամ նկարների սեփական չափերը: Անցկացրեք անվճար փորձություն:


Տեղադրեք բազմաթիվ նկարներ, որոնք համապատասխանում են նրանց անուններին Kutools- ի համար Excel- ի համար

Excel- ի համար Kutools- ը նույնպես աջակցում է դրամատիկ Համապատասխանի ներմուծման նկարները գործառույթը `նկարներին և բջիջների պարունակությանը համապատասխանեցնելու և համապատասխանեցված նկարները Excel- ում միայն մեծ մասամբ տեղադրելու համար:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now

1, Ընտրեք ձեր նկարի անվան բջիջները, որոնք ցանկանում եք տեղադրել դրանց համապատասխան նկարները և կտտացրեք Kutools Plus > Ներմուծման արտահանման > Համապատասխանի ներմուծման նկարները, տե՛ս սքրինշոթը.

2, Pedուցադրված Match Import Pictures երկխոսության դաշտում արեք հետևյալը.
(1) Նշեք նկարների ցուցադրման կարգը Ներմուծման պատվեր բացվող ցուցակ;
(2) Սեղմեք Ավելացնել նկարները նկարների ցանկի վանդակում ավելացնելու կոճակը: Ձեր տեղեկության համար կցուցադրվեն միայն համապատասխան նկարներ:
(3) Դրանից հետո կտտացրեք Ներմուծման չափը կոճակը:

3. Հիմա ՝ Ներմուծեք նկարի չափը երկխոսություն, կարող եք ընտրել նկարի չափը, որը համապատասխանում է ձեր պահանջին և կտտացրեք այն Ok կոճակ Տեսեք,

4, Այժմ դուք վերադառնում եք դեպի Ներմուծեք նկարներ երկխոսություն, սեղմեք Ներմուծում պատկերները ներմուծելու կոճակ:

5. Համապատասխան ներմուծման նկարների պատուհանում դուրս գալու պատուհանում նշեք նպատակակետի առաջին բջիջը, որը կտեղադրեք նկարներ և կտտացրեք այն OK կոճակ Տեսեք,

Մինչ այժմ բոլոր նկարները տեղադրվում են բջիջների վրա ՝ հիմնվելով նրանց հարաբերական անունների վրա: Տեսեք աջ էկրանի նկարը.

The Համապատասխանի ներմուծման նկարները Excel- ի համար Kutools- ի առանձնահատկությունը կարող է օգնել Excel- ի օգտվողներին արագորեն զտել նկարները `հիմնված բջջային արժեքների վրա, և այնուհետև դրանք ներդնել զանգվածաբար Բացի այդ, այս համապատասխան նկարները կարող են ավտոմատ կերպով վերափոխվել նշված չափի կամ բջիջի չափի: Անցկացրեք անվճար փորձություն:


Դեմո. Տեղադրեք բազմաթիվ նկարներ և միանգամից չափափոխեք դրանք Excel- ում

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


Առնչվող հոդվածներ

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

🤖 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 (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello community,

Thank you very much - this is a great tool!
But for my request, I should keep the sizes of the images, which are different. Is there any way to keep the format of the images but keep the functions with this code?

Many thanks in advance.
Elias
This comment was minimized by the moderator on the site
Respected sir, i want to One image paste on specific cell more than one in a time.
This comment was minimized by the moderator on the site
Hello, Sarfraz

If you want to insert one image into multiple cells, you just need to insert one image and resize it, and then copy and paste it to the other cells as you need.

Thank you!
This comment was minimized by the moderator on the site
mình cảm ơn vì bài viết. mình có làm danh sách sản phẩm hàng hóa mất rất nhiều thời gian nhưng chợt thấy chenanhexcel.com có bán add-in thì công việc của mình dễ dàng hơn nhiều.
This comment was minimized by the moderator on the site
Hi, i have 10 images i want to insert all 10 inside ONE CELL in excel. is this possible and if so pls help me out with some code pls...
This comment was minimized by the moderator on the site
Hi Vind,
First, adjust the cell and make it big enough to contain the 10 images.
Then Click Insert > Picture to open the Insert Picture dialog. In the dialog, select the 10 images together (if they are in the same folder), and click the OK button.
Now all images are inserted. If necessary, resize them simultaneously in the Size group on the Picture Format tab.
These images are inserted in the diagonal line of the cell as attached picture, and you need to adjust their positions manually.
This comment was minimized by the moderator on the site
I am using the following code, which came from Funzone, to add my photos but i need to be able to skip a column, leaving a blank column between photos, can someone help?

Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 2
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I was finally able to figure it out on my own.

The code below will insert 3 pictures horizontally in the columns then move down a row and insert 3 more horizontally it will repeat this process until it runs out of the selected pictures.



Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 1
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?


If you know how to do this please post the code. Thank you In advance!

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array.
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array
This comment was minimized by the moderator on the site
les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
reitero mi agradecimiento
This comment was minimized by the moderator on the site
Tried this code and in all honesty is amazing and fast, however is there any chance of amending this to make it resize the pictures to a custom size.
I cannot seem to get my head around it.
Thanks
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