การเพิ่มรูปภาพเข้ามาใน Worksheet ด้วยวิธีปกติ คิดว่า ทุกคนคงทราบแล้ว เพราะว่าถ้าเราลองมองดูที่ Tab Ribbon ตรง Tab แทรก(Insert) แล้วคลิ้กที่ คำสั่ง “รูปภาพ” กล่องเปิดรูปภาพก็จะเปิดขึ้นมาให้เราเลือกภาพที่ต้องการให้ ไม่ยากเลย แต่วันนี้เราจะมาเปิดรูปภาพด้วยวิธีการสั่งงานด้วยคำสั่งของ visual basic for application หรือ vba โดยวิธีนี้จะสั่งงานผ่าน CommandButton เช่นเคย รับรองได้ว่าไม่ยากแต่ว่าใช้งานได้จริง
มาดูกันว่ามีวิธีการอย่างไรที่จะทำงานนี้ให้ลุล่วงไปได้
· ขั้นแรกก็ต้องเปิด Microsoft Excel ขึ้นมา ใครมี Excel เวอร์ชั่นไหน ก็เปิด Excel เวอร์ชั่นนั้นมาก็แล้วกัน
· ขั้นตอนต่อมาก็เปิด VBA ขึ้นมา โดยการกด ปุ่ม ALT+F11 หน้าจอของ vba ก็จะเปิดขึ้นมา
· ขั้นตอนต่อไป แทรก Userform เข้ามา แล้วนำ CommandButton เพิ่มเข้ามา 1 อัน แล้วเปลี่ยนคุณสมบัติ Caption ของ CommandButton ให้เป็น “Insert Pictures”
· ขั้นตอนต่อไป แทรก Module เข้ามา 1 Module แล้วใส่ โค้ดเข้าไปที่ Module ดังนี้
Sub Macro1()
ActiveSheet.Pictures.Insert( _
"C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg").Select
End Sub
ขั้นตอนต่อมา ดับเบิ้ลคลิ้กที่ CommandButton ที่อยู่บนฟอร์มที่เราแทรกเข้ามา แล้วใส่โค้ดคำว่า Macro1 ต่อไปนี้เข้าไป ระหว่างประโยค
Private Sub CommandButton1_Click()
ใส่โค้ดตรงนี้
End Sub
แล้วจะได้โค้ดที่สมบูรณ์เป็นดังบรรทัดข้างล่างนี้
Private Sub CommandButton1_Click()
Macro1
End Sub
จากนั้นกด F5 เพื่อสั่งให้โปรแกรททำงานตามโค้ดที่เราเขียน เมื่อ Userform ปรากฏตัวขึ้นมา ให้เราคลิ้กที่ปุ่ม Insert Pictures ก็จะได้ภาพ 1 ภาพ เข้ามาที่ Sheet1 ตรงตำแหน่ง เซลล์ที่ตัวชี้เซลล์อยู่ ดูภาพด้านล่างประกอบ
สำหรับวิธีการต่าง ที่กล่าวมาไม่ว่าจะเป็นการ เปิด VBA การแทรก Userform การแทรก CommandButton การแทรก Module ต่างๆ ผู้ใช้มือใหม่ทั้งหลายสามารถค้นหาวิธีที่มีการอธิบายแบบมีภาพประกอบได้ภายใน Blog แห่งนี้ได้เลย
ปัญหาคือเปิดที่เครื่องอื่นจะไม่สามารถดูภาพได้ครับมีวิธีแก้หรือไม่
ตอบลบ