คำสั่ง VBA ดึงรูปภาพจากใน Folder มาแสดงใน User form

[Bella08]

สวัสดีค่ะ
รบกวนสอบถามเกี่ยวกับคำสั่งดึงรูปภาพใน Folder ให้แสดงใน Image control ใน Userform เมื่อชื่อชิ้นงานที่เลือกตรงกับชื่อรูปภาพใน Folder เบื้องต้นลองเขียน Code คำสั่งมาแล้วแต่ยังติดปัญหา Debug ค่ะ

Code: Select all

Private Sub Partdescription_Change()
Dim NameFound As Range
    Set NameFound = Partdescription.Value
    If NameFouond Is Nothing Then
         Image1.Picture = LoadPicture(fPath & "nopic.jpg")
    Else
         With NameFound
              fPath = "\\pserver01\Department\PN\(B) การวางแผนการผลิต\Picture"
              Image1.Picture = LoadPicture(fPath & "\" & Partdescription.Value & .jpg)
          End With
 
    End If
End Sub

[snasui]

ลองอธิบายประกอบว่าต้องการจะทำอะไรมาเป็นลำดับขั้นตอนจะได้สะดวกในการทำความเข้าใจครับ

การกำหนดค่าให้ตัวแปรที่เป็น Range เราจะไม่กำหนดเป็น Set NameFound = Partdescription.Value แต่จะกำหนดเป็น Set NameFound = Partdescription ถ้าใส่ .value เข้าไปด้วยจะเป็นค่าคงที่ ไม่ใช่ Range ครับ

จาก Code ที่เขียนมากำหนด Range เป็นช่วงข้อมูลแต่ตอนทำไปใช้เขียนเสมือนว่าเป็นแค่เซลล์เดียว

การกำหนดค่าให้กับ fPath ต้องกำหนดไว้ก่อน Statement Image1.Picture = LoadPicture(fPath & "nopic.jpg") ไม่เช่นนั้นจะใช้งานไม่ได้ ฯลฯ