การปรับขนาดรูปให้พอดีกับ Cell และ การ Filter รูปภาพ ให้แสดงเฉพาะรูปภาพที่เราต้องการ
Resize image to fit cell and Filter image
ในการทำรายงานผ่านทาง Excel บางครั้งเราก็ต้องมีการนำเข้ารูปภาพ เพื่อมาแทรกใน Cell ที่เราต้องการ เพื่อให้คนดูรายงาน สามารถเข้าใจรายละเอียดได้ชัดเจนยิ่งขึ้น
วันนี้ก็จะนำเสนอวิธีการ ปรับขนาดรูปภาพให้พอดีกับ Cell โดยใช้ VBA เข้าช่วย และการ Filter รูปภาพกันนะครับ
กับ Code ไม่กี่บรรทัด ก็สามารถทำให้งานเราง่ายขึ้นได้ มาดูวิธีการกันเลย
ลำดับแรก ควรจะเตรียมตารางและปรับขนาด Cell สำหรับใส่รูปภาพเอาไว้ และนำเข้ารูปภาพที่ต้องการแทรกในรายงาน เข้ามา
จากนั้นให้เพิ่ม Code ด้านล่างนี้ลงไป
Sub resizePicture()
'บรรทัดนี้จะช่วยในการ Filter ให้แสดงผลเฉพาะรูปภาพที่เราต้องการ Filter มาเท่านั้น
Selection.Placement = xlMoveAndSize
With Selection.ShapeRange
'ทำให้สามารถปรับรูปภาพได้อิสระ
.LockAspectRatio = msoFalse
'ส่วนของการปรับขนาด และย้ายตำแหน่งรูปภาพ
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Height = ActiveCell.Height
.Width = ActiveCell.Width
End With
End Sub
ก็เป็นอันเสร็จเรียบร้อย
มาดูวิธีใช้งานกัน
ก่อนอื่นให้คลิกเลือก Cell ที่ต้องการแทรกรูปลงไป
จากนั้นทำการเลือกรูปที่ต้องการ แทรกลงใน Cell นั้น (ซึ่งตอนนี้เราได้ทำการ import เข้ามาไว้ก่อนแล้ว)
จากนั้นทำการ Run macro ที่เราได้สร้าง โดยการไปที่แท๊บ "Develop>Macros" หรือกด Alt+F8 ก็ได้
ก็จะได้หน้าต่าง "Macro" ขึ้นมา
ให้เลือก Macro ที่เราได้สร้างไว้ ในที่นี้เป็น Macro ชื่อ "resizePicture" แล้วคลิก Run
หากต้องการเรียกใช้ Macro ให้ง่ายกว่านี้ เราสามารถ เพิ่ม shortcut ให้กับ Macro ได้โดย
เปิดแท๊บ Macro ขึ้นมา
จากนั้นเลือก Macro ที่ต้องการเพิ่ม Shortcut
เลือก "Options.."
จากนั้นป้อนอักษรที่ต้องการสร้างเป็น shortcut ได้เลย
วิธีการเรียกใช้ ก็ทำการกด shortcut แทนการเปิดหน้าต่าง Macro ได้เลยครับ
เมื่อจัดทำ Report เรียบร้อยแล้ว ก็สามารถทำการ Filter ตามปรกติได้เลย
เมื่อทดลองเลือก Filter Group "B"
นอกจากนั้น หากเราปรับขนาด Cell รูปภาพ ก็จะเปลี่ยนขนาดตามที่เราได้ปรับด้วย
ก็ลองเอาไปประยุกต์ใช้กันดูครับ
อ้างอิง: http://www.calibrationplansoftware.com/article/ar-15/article.html
ความคิดเห็น
แสดงความคิดเห็น