ดาวน์โหลดบทความ
ดาวน์โหลดบทความ
ต้องการแทรกรูปภาพหรือโลโก้ในชีต Excel เพื่อเพิ่มความดึงดูดสายตาใช่หรือไม่? แม้ว่าจะไม่มีวิธีตั้งค่าให้รูปภาพขยายหรือย่อตามขนาดเซลล์ได้โดยอัตโนมัติ แต่คุณก็สามารถปรับขนาดรูปภาพให้พอดีกับเซลล์ได้ง่ายๆ เพียงไม่กี่คลิก ในบทความนี้เราจะมาเรียนรู้วิธีการแทรกรูปภาพใน Excel พร้อมปรับขนาดให้พอดีกับเซลล์กัน
ขั้นตอน
-
เปิดไฟล์งานบน Microsoft Excel. คุณสามารถเปิดไฟล์งานบน Microsoft Excel ได้โดยคลิก File > Open ( ไฟล์ > เปิด ) หรือคลิกขวาที่ไฟล์งานและเลือก Open with > Excel ( เปิดด้วย > Excel )
-
แทรกรูปภาพ. คุณสามารถแทรกรูปภาพได้โดยคลิก Insert > Pictures > Selecting your picture > Insert ( แทรก > รูปภาพ > เลือกรูปภาพ > แทรก )
-
ปรับขนาดรูปภาพ. เมื่อแทรกรูปภาพที่ต้องการแล้ว แท็บ Format ( รูปแบบ ) จะปรากฏขึ้นภายใต้ Picture Tools ( เครื่องมือรูปภาพ ) คุณจะพบการตั้งค่าในกลุ่ม Size ( ขนาด )
- กรอกค่าที่คุณต้องการลงในกล่อง Height ( ความสูง ) และ Width ( ความกว้าง ) เพื่อปรับขนาดรูปภาพ หรือจะปรับขนาดรูปภาพโดยใช้วิธีลากจุดปรับขนาดจากมุมใดมุมหนึ่งของรูปภาพก็ได้เช่นกัน
-
ล็อกรูปภาพลงในเซลล์. ตามค่าเริ่มต้น รูปภาพที่คุณแทรกจะลอยอยู่เหนือเซลล์และขนาดรูปภาพจะไม่เปลี่ยนแปลงไปตามขนาดเซลล์ ซึ่งคุณสามารถแก้ไขปัญหานี้ได้ด้วยการล็อกรูปภาพลงในเซลล์เสียก่อน
- คลิกขวาที่รูปภาพและคลิก Format Picture ( จัดรูปแบบรูปภาพ ) จากนั้นคลิกแท็บ Size & Properties (ไอคอนรูปกล่องสี่เหลี่ยมสีเขียวมีลูกศรชี้สี่ทิศทาง) และเลือก Move and size with cells
- คุณสามารถใช้โค้ด VBA ได้เช่นกัน เริ่มจากแทรกรูปภาพที่ต้องการและกดปุ่ม Alt + F11 เพื่อเปิดหน้าต่าง VBA ขึ้นมา จากนั้นคลิก Insert > Module และวางโค้ดด้านล่างนี้ลงไป:
- กดปุ่ม F5 เพื่อเริ่มรันโค้ด ทำซ้ำขั้นตอนเดิมจนกระทั่งรูปภาพทั้งหมดในชีตมีขนาดพอดีกับขนาดเซลล์
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
โฆษณา
เกี่ยวกับวิกิฮาวนี้
มีการเข้าถึงหน้านี้ 105,258 ครั้ง
โฆษณา