จะลบรูปภาพทั้งหมดในช่วงเซลล์ได้อย่างไร?

หากมีรูปภาพหลายภาพในแผ่นงานของคุณตอนนี้คุณต้องการลบบางภาพในช่วงที่กำหนดคุณจะจัดการกับมันได้อย่างไร?

ลบรูปภาพทั้งหมดในช่วงของเซลล์ที่ระบุด้วยรหัส VBA

ลบรูปภาพทั้งหมดในแผ่นงานหรือสมุดงานทั้งหมดด้วย Kutools for Excel

ลบรูปภาพทั้งหมดในช่วงของเซลล์ที่ระบุด้วยรหัส VBA

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

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูล, และวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ลบภาพทั้งหมดในช่วงเซลล์ที่เลือก:

Sub DeletePic()
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("A5:B8")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในโค้ดด้านบน A5: B8 คือช่วงที่คุณต้องการลบรูปภาพโปรดเปลี่ยนตามความต้องการของคุณ

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และรูปภาพในช่วงที่เลือกจะถูกลบออกพร้อมกันดูภาพหน้าจอ:

ลบรูปภาพทั้งหมดในแผ่นงานหรือสมุดงานทั้งหมดด้วย Kutools for Excel

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

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. คลิก Kutools > ลบ > ลบภาพประกอบและวัตถุดูภาพหน้าจอ:

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

3. จากนั้นคลิก Ok และรูปภาพทั้งหมดจะถูกลบออกจากแผ่นงานหรือสมุดงานทั้งหมดตามที่คุณเลือก