Note: The other languages of the website are Google-translated. Back to English

วิธีปรับขนาดรูปภาพให้พอดีกับเซลล์ใน Excel

โดยปกติรูปภาพที่แทรกจะลอยอยู่เหนือเซลล์และส่วนใหญ่แล้วรูปภาพหนึ่งภาพจะครอบคลุมเซลล์จำนวนมาก หากเวิร์กชีตมีรูปภาพจำนวนมากคุณอาจต้องใส่รูปภาพแต่ละรูปลงในเซลล์เดียว แต่จะจัดการกับมันอย่างไร? จริงๆแล้วมีหลายวิธีที่ยุ่งยากในการช่วยให้เราปรับขนาดรูปภาพให้พอดีกับขนาดของเซลล์ได้อย่างรวดเร็ว

ปรับขนาดรูปภาพที่เลือกให้พอดีกับเซลล์เดียวด้วย VB Macro

ปรับขนาดรูปภาพที่แทรกให้พอดีกับเซลล์ด้วย Kutools for Excel

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ; ทำงานร่วมกับ Office 2007-2021 และ 365; รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวา ปรับขนาดรูปภาพที่เลือกให้พอดีกับเซลล์เดียวด้วย VB Macro

เราสามารถใช้มาโคร 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

หมายเหตุ: คุณสามารถปรับขนาดภาพได้เพียงครั้งเดียว หากคุณเลือกมากกว่าหนึ่งภาพในครั้งเดียวกล่องโต้ตอบคำเตือนจะปรากฏขึ้น


ลูกศรสีฟ้าฟองขวา ปรับขนาดรูปภาพที่แทรกให้พอดีกับเซลล์ด้วย Kutools for Excel

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

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

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

doc-ปรับขนาดรูปภาพให้พอดีกับเซลล์-1

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

doc-ปรับขนาดรูปภาพให้พอดีกับเซลล์-2

ขั้นตอนที่ 3: ตรวจสอบ จับคู่ขนาดเซลล์ ตัวเลือก จากนั้นคลิก Ok > นำเข้า เพื่อปิดกล่องโต้ตอบ ดูภาพหน้าจอ:

doc-ปรับขนาดรูปภาพให้พอดีกับเซลล์-3

ตอนนี้คุณสามารถเห็นรูปภาพที่แทรกให้พอดีกับเซลล์

doc-ปรับขนาดรูปภาพให้พอดีกับเซลล์-4

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

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


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

วิธีปรับขนาดเซลล์หลายเซลล์ให้พอดีกับรูปภาพด้านบนอย่างรวดเร็วใน Excel


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (15)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มาโคร FitPic ที่ระบุไว้ด้านบนคือ Sweeeeeeet! ฉันถ่ายรูปรายการขายของโรงรถจำนวนหนึ่งซึ่งในที่สุดก็ไปที่ Salvation Army ฉันบันทึกรูปภาพและค่าในวัตถุประสงค์ทางภาษีของ Excel มาโครนี้ใช้งานได้ครั้งแรก! :ฮ่าๆ:
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คำแนะนำสำหรับ Excel
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมันสมบูรณ์แบบ !!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ได้ผล!! แต่ฉันมีคำถามหนึ่งข้อ ฉันต้องการปรับ img ในช่วงของเซลล์ที่ผสาน ฉันจะทำอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]ได้ผล!! แต่ฉันมีคำถามหนึ่งข้อ ฉันต้องการปรับ img ในช่วงของเซลล์ที่ผสาน ฉันจะทำอย่างไรโดย มาร์เซโล[/quote] Marcelo คุณได้รับ marco ที่อัปเดตสำหรับเซลล์ที่ผสานหรือไม่? ฉันกำลังพยายามทำสิ่งเดียวกัน ขอบใจ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันลองมาโครนี้เมื่อคืนนี้ และมันปรับเฉพาะความสูงเท่านั้น ความกว้างก็ไม่ผิด ความช่วยเหลือใด ๆ โปรด?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
FitPic ย่อยสาธารณะ()
'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
'การปรับเปลี่ยนเล็กน้อยเพื่อปรับขนาดเป็นเซลล์ที่ผสาน
เกี่ยวกับข้อผิดพลาด GoTo NOT_SHAPE
Dim PicWtoHRatio เป็นโสด
Dim CellWtoHRatio เป็นโสด
ด้วยการคัดเลือก
PicWtoHRatio = .ความกว้าง / .ความสูง
จบด้วย
ด้วย Selection.TopLeftCell
CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
จบด้วย
เลือกกรณี PicWtoHRatio / CellWtoHRatio
กรณีคือ > 1
ด้วยการคัดเลือก
.Width = .TopLeftCell.MergeArea.Width
.Height = .Width / PicWtoHRatio
จบด้วย
กรณีอื่น
ด้วยการคัดเลือก
.Height = .TopLeftCell.MergeArea.Height
.Width = .Height * PicWtoHRatio
จบด้วย
สิ้นสุดการเลือก
ด้วยการคัดเลือก
.Top = .TopLeftCell.MergeArea.Top
.Left = .TopLeftCell.MergeArea.Left
.ตำแหน่ง = xlMoveAndSize
จบด้วย
ออกจาก Sub
ไม่_รูปร่าง:
MsgBox "เลือกรูปภาพก่อนเรียกใช้แมโครนี้"
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากที่ใช้งานได้ แต่ฉันมีรูปภาพประมาณ 500 รูปดังนั้นฉันจึงไม่ต้องการทำทีละภาพ - ฉันจะทำทั้งหมดพร้อมกันได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันชอบมาโครนี้มากที่ทำให้รูปภาพพอดีกับเซลล์ มันช่วยฉันได้มากในการทำงานบางอย่าง แต่ไม่มีใครรู้วิธีเขียนโค้ดนี้สำหรับ applescript หรือไม่? ฉันต้องใช้ macs และ excel เวอร์ชัน apple, Numbers ใช้เฉพาะ applescript เท่านั้น ช่วย! ขอบคุณมากแฮร์รี่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันใช้งานได้ถ้าเซลล์ไม่ถูกรวมเข้าด้วยกัน น่าเสียดายที่ฉันรวมเซลล์บางเซลล์เข้าด้วยกันและมันพอดีกับเซลล์ด้านซ้ายบนเท่านั้น ซึ่งทำให้รูปภาพมีขนาดเล็กมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉลาดหลักแหลม! ใช้งานได้ดี! สิ่งที่ฉันกำลังมองหา! ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ..
โซลูชั่นที่สมบูรณ์แบบ แต่ฉันต้องการให้ฟังก์ชันนั้นทำงานกับปุ่มคำสั่ง ฉันต้องทำปุ่มคำสั่งเพื่อแทรกและปรับขนาดอัตโนมัติตามขนาดเซลล์ กรุณาช่วย.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ต้องการรหัสนี้เพื่อปิดการใช้งานอัตราส่วนการล็อก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ มันใช้งานได้จริง!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
La macro posiziona l'immagine "Immagine 2" al centro della cella ("D5"), anche se questa è unita ad altre celle. Spero possa esservi utile

ย่อย 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 ' สายสัมพันธ์ foto h/L

ช่วง("D5") เลือก

hcell = การเลือกความสูง
Lcell = Selection.Width
hfoto = ActiveSheet.Shapes("Imagine 2") ความสูง
Lfoto = ActiveSheet.Shapes("Imagine 2")). ความกว้าง
Rfoto = hfoto / แอลโฟโต

ถ้า hfoto < Lfoto แล้ว
Lfoto = Lเซลล์ - 10
hfoto = โฟโต้ * โฟโต้

ถ้า hfoto > hcell แล้ว
hfoto = hเซลล์ - 3
Lfoto = hfoto / รโฟโต้
End If

ActiveSheet.Shapes("Imagine 2") ความสูง = hfoto
ActiveSheet.Shapes ("Imagine 2") ความกว้าง = Lfoto
อื่น
hfoto = hเซลล์ - 10
Lfoto = hfoto / รโฟโต้
ActiveSheet.Shapes("Imagine 2") ความสูง = hfoto
ActiveSheet.Shapes ("Imagine 2") ความกว้าง = Lfoto
End If

ช่วง("D5") เลือก

ด้วย ActiveSheet.Shapes("Imagine 2")
.Top = Selection.Top + (การเลือก.Height - .Height) / 2
.Left = Selection.Left + (การเลือก.ความกว้าง - .ความกว้าง) / 2
จบด้วย
ย่อยสิ้นสุด
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL