วิธีจัดกึ่งกลางรูปภาพในเซลล์ Excel
บทความนี้จะแสดงวิธีการย้ายรูปภาพไปที่กึ่งกลางของเซลล์ในแผ่นงาน Excel ดังภาพด้านล่าง
ย้ายรูปภาพไปที่กึ่งกลางของเซลล์ด้วยรหัส VBA
ย้ายรูปภาพไปที่กึ่งกลางของเซลล์ด้วยรหัส VBA.
โปรดทำดังนี้เพื่อย้ายรูปภาพไปที่กึ่งกลางของเซลล์ในแผ่นงานใน Excel
1. เปิดแผ่นงานที่มีรูปภาพที่คุณต้องการจัดกึ่งกลางเซลล์จากนั้นกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางรหัส VBA ลงในหน้าต่างรหัส
รหัส VBA: ย้ายรูปภาพไปที่กึ่งกลางเซลล์ในแผ่นงาน
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
หมายเหตุ / รายละเอียดเพิ่มเติม:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส
จากนั้นรูปภาพที่ระบุทั้งหมดจะถูกย้ายไปที่กึ่งกลางของเซลล์บางเซลล์ทันทีตามภาพด้านล่างที่แสดง
บทความที่เกี่ยวข้อง:
- วิธีเปลี่ยนรูปภาพทั้งหมดโดยอัตโนมัติเพื่อย้ายและปรับขนาดด้วยเซลล์ใน Excel
- วิธีตรวจสอบว่าเซลล์มีรูปภาพใน Excel หรือไม่?
- วิธีแทรกรูปภาพหรือรูปภาพแบบไดนามิกในเซลล์ตามค่าของเซลล์ใน Excel
- วิธีการขยายภาพเมื่อคลิกใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!