วิธีจัดกึ่งกลางรูปภาพในเซลล์ 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 Magic ด้วย Kutools AI

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

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

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

• วิธีเปลี่ยนรูปภาพทั้งหมดโดยอัตโนมัติเพื่อย้ายและปรับขนาดด้วยเซลล์ใน Excel
• วิธีตรวจสอบว่าเซลล์มีรูปภาพใน Excel หรือไม่?
• วิธีแทรกรูปภาพหรือรูปภาพแบบไดนามิกในเซลล์ตามค่าของเซลล์ใน Excel
• วิธีการขยายภาพเมื่อคลิกใน Excel