วิธีการเปลี่ยนรูปภาพทั้งหมดเป็น "ย้ายและขนาดตามเซลล์" ใน Excel โดยอัตโนมัติได้อย่างไร

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

เปลี่ยนรูปภาพทั้งหมดโดยอัตโนมัติเป็น "ย้ายและปรับขนาดตามเซลล์" ด้วยโค้ด VBA

เปลี่ยนรูปภาพทั้งหมดโดยอัตโนมัติเป็น "ย้ายและปรับขนาดตามเซลล์" ด้วยโค้ด VBA

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

1. เปิดแผ่นงานที่มีรูปภาพที่คุณต้องการเปลี่ยนแปลงโดยการย้ายและปรับขนาดด้วยเซลล์จากนั้นเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างโดยกดปุ่ม อื่น ๆ + F11 กุญแจ

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางรหัส VBA ลงในหน้าต่างรหัส

รหัส VBA: เปลี่ยนรูปภาพทั้งหมดเป็น "ย้ายและปรับขนาดตามเซลล์"

Sub MoveAndSizeWithCells()
    Dim xPic As Picture
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each xPic In ActiveSheet.Pictures
        xPic.Placement = xlMoveAndSize
    Next
    Application.ScreenUpdating = True
End Sub

3 กด F5 หรือคลิกปุ่ม Run เพื่อเรียกใช้รหัส

รูปภาพทั้งหมดในแผ่นงานที่ใช้งานอยู่จะถูกตั้งค่าเป็น "ย้ายและปรับขนาดตามเซลล์" โดยอัตโนมัติ

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

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