ไปยังเนื้อหาหลัก

วิธีแทรกรูปภาพหลายรูปและปรับขนาดพร้อมกันใน Excel

เป็นเรื่องง่ายที่เราจะแทรกรูปภาพหนึ่งรูปลงใน Excel แต่ถ้าคุณต้องการแทรกรูปภาพหลาย ๆ ภาพพร้อมกันเพื่อให้ประหยัดเวลาได้มากคุณจะทำอย่างไร?


แทรกรูปภาพหลายภาพและปรับขนาดเป็นกลุ่มโดยคุณสมบัติแทรกรูปภาพ

เราสามารถแทรกรูปภาพจำนวนมากโดยใช้คุณลักษณะ (แทรก) รูปภาพใน Excel จากนั้นปรับขนาดพร้อมกัน โปรดดำเนินการดังนี้:

1. ในแผ่นงานคลิก สิ่งที่ใส่เข้าไป > ภาพ.

2. ในกล่องโต้ตอบแทรกรูปภาพโปรดเปิดโฟลเดอร์ที่มีรูปภาพที่คุณจะแทรกเลือกรูปภาพหลาย ๆ ภาพตามที่คุณต้องการแล้วคลิกไฟล์ สิ่งที่ใส่เข้าไป ปุ่ม. ดูภาพหน้าจอ:
หมายเหตุ: โฮลดิ้ง Ctrl ที่สำคัญคุณสามารถเลือกภาพที่ไม่อยู่ติดกันได้หลายภาพโดยคลิกทีละภาพ ถือ เปลี่ยน คุณสามารถเลือกภาพที่อยู่ติดกันหลาย ๆ ภาพโดยคลิกที่ภาพแรกและภาพสุดท้าย

ตอนนี้รูปภาพถูกแทรกเป็นกลุ่มและซ้อนกันในแผ่นงาน

3. เลือกรูปภาพเหล่านี้ไว้และปรับขนาดเป็นกลุ่มโดยป้อนหมายเลขใหม่ลงในทั้งคู่ ความกว้าง และ ความสูง กล่องในไฟล์ ขนาด กลุ่มใน รูปแบบ แท็บ ดูภาพหน้าจอ:

ตอนนี้รูปภาพที่แทรกทั้งหมดจะเปลี่ยนเป็นขนาดเดียวกันพร้อมกัน

4. ในปัจจุบันคุณจำเป็นต้องย้ายแต่ละภาพด้วยตนเองแยกกันไปยังที่ที่พอดี

หมายเหตุ: หากมีภาพซ้อนกันหลายสิบภาพจะค่อนข้างใช้เวลานานในการย้ายด้วยตนเองให้พอดีกับสถานที่

Batch แทรกรูปภาพหลายภาพที่ตรงกับเนื้อหาของเซลล์ใน Excel

พื้นที่ จับคู่รูปภาพนำเข้า ฟีเจอร์ของ Kutools for Excel เป็นเครื่องมือที่ยอดเยี่ยมที่สามารถนำเข้าแบทช์และแทรกรูปภาพหลาย ๆ ภาพตามเนื้อหาของเซลล์และปรับขนาดรูปภาพที่นำเข้าให้เหมือนกับขนาดเซลล์หรือตามขนาดที่ระบุได้อย่างง่ายดาย


โฆษณาจับคู่ภาพนำเข้า 01

Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ 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 for Excel

Kutools สำหรับ Excel's นำเข้ารูปภาพ ยูทิลิตี้สามารถช่วยให้คุณแทรกรูปภาพหลายรูปลงใน Excel ได้อย่างรวดเร็วโดยอิงตามขนาดเซลล์หรือขนาดรูปภาพ คุณสามารถระบุความสูงและความกว้างของรูปภาพได้ตามที่คุณต้องการเช่นกัน

Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นมากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! Get It Now

1. คลิก Kutools พลัส > นำเข้าส่งออก > นำเข้ารูปภาพดูภาพหน้าจอ:

2. ใน นำเข้ารูปภาพ โปรดทำดังนี้:
(1) ระบุลำดับการแสดงภาพจากไฟล์ สั่งนำเข้า รายการแบบเลื่อนลงคุณสามารถเลือกได้ เติมเซลล์ในแนวตั้งหลังเซลล์ or เติมเซลล์ตามแนวนอนหลังเซลล์.
(2) คลิก เพิ่ม เพื่อเลือกไฟล์รูปภาพหรือโฟลเดอร์เพื่อเพิ่มรูปภาพลงในรายการรูปภาพ และรูปภาพที่คุณเลือกทั้งหมดจะแสดงอยู่ในกล่องรายการ
(3) คลิกไฟล์ นำเข้าขนาด ปุ่ม;

3. ตอนนี้อยู่ใน นำเข้าขนาดรูปภาพ คุณสามารถเลือกขนาดภาพที่ตรงกับความต้องการของคุณ ดูภาพหน้าจอ:

4. หลังจากระบุขนาดรูปภาพแล้วโปรดคลิก OK เพื่อปิดกล่องโต้ตอบนี้และกลับไปที่ไฟล์ นำเข้ารูปภาพ โต้ตอบคลิก นำเข้า ปุ่มเพื่อนำเข้าภาพ

5. ในกล่องโต้ตอบนำเข้ารูปภาพใหม่โปรดเลือกเซลล์แรกของช่วงปลายทางที่คุณจะแทรกรูปภาพแล้วคลิก OK ปุ่ม

ในปัจจุบันรูปภาพที่คุณเลือกทั้งหมดได้ถูกแทรกลงในเซลล์ของคุณจากเซลล์ที่ใช้งานอยู่ในแนวตั้งหรือแนวนอน ดูภาพหน้าจอด้านขวา:

พื้นที่ นำเข้ารูปภาพ คุณลักษณะของ Kutools for Excel ได้รับการออกแบบมาเพื่อแทรกชุดรูปภาพพร้อมกันโดยมีขนาดเซลล์ที่ตรงกันขนาดที่ระบุหรือขนาดของรูปภาพใน Excel ทดลองใช้ฟรี!


แทรกรูปภาพหลายรูปที่ตรงกับชื่อของพวกเขาด้วย Kutools for Excel

Kutools for Excel ยังรองรับไฟล์ จับคู่รูปภาพนำเข้า คุณสมบัติในการจับคู่รูปภาพและเนื้อหาของเซลล์และแทรกรูปภาพที่ตรงกันเป็นกลุ่มใน Excel เท่านั้น

Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นมากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! Get It Now

1. เลือกเซลล์ชื่อรูปภาพของคุณที่คุณต้องการแทรกรูปภาพที่ตรงกันแล้วคลิก Kutools พลัส > นำเข้าส่งออก > จับคู่รูปภาพนำเข้า. ดูภาพหน้าจอ:

2. ในกล่องโต้ตอบ Match Import Pictures ที่โผล่ออกมาโปรดทำดังนี้:
(1) ระบุลำดับการแสดงภาพจากไฟล์ สั่งนำเข้า รายการแบบหล่นลง
(2) คลิก เพิ่ม ปุ่มเพื่อเพิ่มรูปภาพลงในกล่องรายการรูปภาพ สำหรับข้อมูลของคุณจะมีเฉพาะรูปภาพที่ตรงกันเท่านั้น
(3) จากนั้นคลิก นำเข้าขนาด ปุ่ม

3. ตอนนี้อยู่ใน นำเข้าขนาดรูปภาพ คุณสามารถเลือกขนาดภาพที่ตรงกับความต้องการของคุณและคลิกที่ไฟล์ Ok ปุ่ม. ดูภาพหน้าจอ:

4. ตอนนี้คุณกลับไปที่ไฟล์ นำเข้ารูปภาพ โต้ตอบคลิก นำเข้า ปุ่มเพื่อนำเข้าภาพ

5. ในกล่องโต้ตอบ Match Import Pictures ที่เปิดขึ้นมาโปรดระบุเซลล์แรกของช่วงปลายทางที่คุณจะแทรกรูปภาพแล้วคลิก OK ปุ่ม. ดูภาพหน้าจอ:

จนถึงขณะนี้รูปภาพทั้งหมดจะถูกแทรกลงในเซลล์ตามชื่อญาติ ดูภาพหน้าจอด้านขวา:

พื้นที่ จับคู่รูปภาพนำเข้า คุณลักษณะของ Kutools for Excel สามารถช่วยให้ผู้ใช้ Excel สามารถกรองรูปภาพตามค่าของเซลล์ได้อย่างรวดเร็วจากนั้นแทรกรูปภาพเหล่านี้เป็นกลุ่ม นอกจากนี้รูปภาพที่ตรงกันเหล่านี้สามารถปรับขนาดให้เป็นขนาดที่ระบุหรือขนาดเซลล์ได้โดยอัตโนมัติ ทดลองใช้ฟรี!


การสาธิต: แทรกรูปภาพหลายภาพและปรับขนาดพร้อมกันใน Excel

Kutools สำหรับ Excel มีเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรีโดยไม่มีข้อจำกัดใน 30 วัน ทดลองใช้ฟรีทันที!      Buy Now!


บทความที่เกี่ยวข้อง

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 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