วันพฤหัสบดีที่ 8 สิงหาคม พ.ศ. 2556

เอ็กเซล และ การแทรกรูปร่าง วงกลม สี่เหลี่ยม บน Worksheet

Vba และการแทรกรูปร่าง (Shape) วงรี สีเหลี่ยม บน Worksheet · สร้างวงรี สีเทาหนึ่งวง แล้วเขียนข้อความว่า “วงรี” · สร้างสี่เหล... thumbnail 1 summary
Vba และการแทรกรูปร่าง (Shape) วงรี สีเหลี่ยม บน Worksheet


· สร้างวงรี สีเทาหนึ่งวง แล้วเขียนข้อความว่า “วงรี”


· สร้างสี่เหลี่ยม สีเทาหนึ่งอัน แล้วเขียนข้อความว่า “สี่เหลี่ยม”


· กด ALT+F11 แล้ว Insert--> module เข้ามา 1 อัน


ใส่ โค้ดต่อไปนี้เข้าไปที่ Module

Sub Macro1() 'add oval shape


ActiveSheet.Shapes.AddShape(msoShapeOval, 146.25, 60.75, 240, 162).Select


End Sub


Sub Macro2() 'add rectangle shape


ActiveSheet.Shapes.AddShape(msoShapeRectangle, 146.25, 60.75, 240, 162).Select


End Sub


· กด ALT+F11 อีกครั้งเพื่อกลับมาที่ Microsoft Excel 2010


แล้วคลิ้กขวาที่วงรีที่สร้างขึ้นจากนั้นเลือกคำสั่ง Assign Macro…


· เมื่อ ไดอะล็อก Macro ปรากฏตัวขึ้นมาให้เราเลือก ที่ Macro1

แล้วกด Ok


· คลิ้กขวาที่ สี่เหลี่ยมที่สร้างขึ้น จากนั้นเลือกคำสั่ง Assign Macro…

เมื่อไดอะล็อก Macro ปรากฏตัวขึ้นมาให้เราเลือกที่ Macro2 แล้วกด Ok


· ทดสอบการทำงานของคำสั่งที่เราเขียนโดย คลิ้กที่พื้นที่ว่างบน Sheet แล้วเลื่อนเม้าส์ไปบน “วงรี” หรือ “สี่เหลี่ยม” ถ้าเม้าส์เปลี่ยนเป็นรูปมือ แสดงว่าอยู่ในโหมดพร้อมสั่งงานได้แล้ว


· ให้เราคลิ้กที่ “วงรี” หรือ “สี่เหลี่ยม” หนึ่งครั้ง เพื่อดูผลที่เกิดขึ้น
ดังเช่นภาพด้านล่างนี้ เป็นการคลิ้กที่ “วงรี” 1 ครั้ง ผลก็จะได้ดังภาพเป็นต้น