การ insert picture ใน usefrom

[tejasiddh]

อาจารย์ครับ ผมต้องการ เพิ่มรูปภาพใน usefrom ด้วย vba ดังนี้
Private Sub CommandButton3_Click()
Dim cou As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
cou = Application.FileDialog(msoFileDialogOpen).Show
If cou <> 0 Then
strpath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Image1.Picture = LoadPicture(strpath)
Imagel.PictureSizeMode = 0
End If

End Sub
พอรันแล้วเกิดข้อผิดพลาด ค้างไปเลย
ต้องทำอย่างไรครับ

[snasui]

ไฟล์ภาพนามสกุลอะไรครับ

ผมทดสอบด้วย .jpg สามารถโหลดได้ครับ

สำหรับการโพสต์ Code กระณาอ่านกฎการใช้บอร์ดข้อ 5 ด้านบน ตัวอักษร Code ควรจะแตกต่างกับตัวอักษรปกติ เพื่อความสะดวกในการอ่านและการ Copy ไปทดสอบครับ

[tejasiddh]

ผมทำแล้วมันแจ้งแบบนี้ครับ ใช้ไฟล jpg ครับ

[snasui]

Mark บรรทัดนั้นเป็น Comment แล้วทดสอบดูใหม่ว่าแสดงรูปได้หรือไม่ครับ

[tejasiddh]

อาจารย์ครับแล้วถ้าเจ้าเอารูปที่ได้วางลงไปในcell ที่ต้องการต้องเขียนโค้ดยังไงครับ

[snasui]

ต้องการจะทำอะไร ตรงไหน อย่างไร ช่วยอธิบายมาอีกรอบ อ่านแล้วยังไม่ค่อยเข้าใจ อย่าลืมเขียนมาเองก่อนครับ