การปรับขนาดรูปให้พอดีกับ Cell และ การ Filter รูปภาพ ให้แสดงเฉพาะรูปภาพที่เราต้องการ Resize image to fit cell and Filter image ในการทำรายงานผ่านทาง Excel บางครั้งเราก็ต้องมีการนำเข้ารูปภาพ เพื่อมาแทรกใน Cell ที่เราต้องการ เพื่อให้คนดูรายงาน สามารถเข้าใจรายละเอียดได้ชัดเจนยิ่งขึ้น วันนี้ก็จะนำเสนอวิธีการ ปรับขนาดรูปภาพให้พอดีกับ Cell โดยใช้ VBA เข้าช่วย และการ Filter รูปภาพกันนะครับ กับ Code ไม่กี่บรรทัด ก็สามารถทำให้งานเราง่ายขึ้นได้ มาดูวิธีการกันเลย ลำดับแรก ควรจะเตรียมตารางและปรับขนาด Cell สำหรับใส่รูปภาพเอาไว้ และนำเข้ารูปภาพที่ต้องการแทรกในรายงาน เข้ามา จากนั้น เหมือนเดิม คือ เข้าไปที่แท๊บ "Develop" แล้วเลือก "View code" ก็จะได้หน้าต่าง VBA ขึ้นมา จากนั้นให้เพิ่ม Code ด้านล่างนี้ลงไป Sub resizePicture() 'บรรทัดนี้จะช่วยในการ Filter ให้แสดงผลเฉพาะรูปภาพที่เราต้องการ Filter มาเท่านั้น Selection.Placement = xlMoveAndSize With Selection.ShapeRange 'ทำให้สามารถปรับรูปภาพได้อิสระ .LockAspectRatio = msoFalse
--- พยายามทำจะทุกสิ่งให้ง่าย เพราะความขี้เกียจ ---