Snasui Excel Forum

Posted: **Fri Sep 12, 2014 2:06 pm**

สวัสดีครับ ผู้เชียวชาญทุกท่าน
พอดีผมติดการดึงภาพจาก Sheet DATA ใน ช่วง K
ให้มาโชว์ ใน USER FORM โดยใช้สูตร Vlookup (อยากให้ภาพขยายขนาดตามกรอบของ Pic1)

Code: Select all

Private Sub txtcode_Change()
On Error Resume Next
With Application.WorksheetFunction
        txtlist.Value = .VLookup(Val(txtcode.Text), Sheets("DATA").Range("A2:C1041576"), 2, False)
        txtprice.Value = .VLookup(Val(txtcode.Text), Sheets("DATA").Range("A2:C1041576"), 3, False)
        txt1.Value = .VLookup(Val(txtcode.Text), Sheets("DATA").Range("A2:J1041576"), 10, False)
        pic1 = .VLookup(Val(txtcode.Text), Sheets("DATA").Range("A2:k1041576"), 11, False)
    End With
End Sub

ขอบคุณครับ

Posted: **Fri Sep 12, 2014 3:19 pm**

รึว่าผมจะแยกรูป ออกมาใส่อีก Folder ดีครับ

เลยลองใส่

Code: Select all

pic1.Picture = LoadPicture("D:\1.pic\" & txtcode.Value & ".JPG")

ภาพก็ยังไม่ขึ้น ต้องแก้ตรงไหนดีครับ

Posted: **Fri Sep 12, 2014 4:08 pm**

ควรแยก Path ไว้อีกต่างหาก ที่เขียนมาตามด้านบนควรจะทำงานได้หากมีรูปใน Folder นั้นจริงครับ

Posted: **Fri Sep 12, 2014 4:26 pm**

snasui wrote: ควรแยก Path ไว้อีกต่างหาก ที่เขียนมาตามด้านบนควรจะทำงานได้หากมีรูปใน Folder นั้นจริงครับ

ขอบคุณครับอาจารย์

ผมก็งงเหมือนกันครับ แก้แล้วลง F8 ดูก็ผ่าน แต่ไม่แสดงผล

พอ ปิด ไป 2 วัน มาเปิดกลับใช้งานได้ แบบนี้เป็นเพราะอะไรครับ อาจารย์

Posted: **Fri Sep 12, 2014 4:47 pm**

ไม่สามารถตอบได้ เพราะไม่ได้เห็นสภาพการทำงานครับ

Posted: **Fri Sep 12, 2014 5:26 pm**

snasui wrote: ไม่สามารถตอบได้ เพราะไม่ได้เห็นสภาพการทำงานครับ

ผมเปลี่ยน โฟเดอร์ใหม่ได้แล้วครับ

การกำหนดขนาดของรูปให้พอดีกับ กรอบ IMAGE
ต้องเพิ่มยังไง บางครับ

Posted: **Fri Sep 12, 2014 5:28 pm**

ลองปรับมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

Posted: **Fri Sep 12, 2014 7:41 pm**

snasui wrote: ลองปรับมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

ลองปรับขนาดภาพตามนี้ ครับ ยังล้นอยู่เลยครับ

Code: Select all

Private Sub txtcode_Change()
On Error Resume Next
With Application.WorksheetFunction
        txtlist.Value = .VLookup(Val(txtcode.Text), Sheets("DATA").Range("A2:C1041576"), 2, False)
        txtprice.Value = .VLookup(Val(txtcode.Text), Sheets("DATA").Range("A2:C1041576"), 3, False)
        txt1.Value = .VLookup(Val(txtcode.Text), Sheets("DATA").Range("A2:J1041576"), 10, False)
        pic1.Picture = LoadPicture("D:\PIC\" & txtcode.Value & ".JPG")
        Set imgIcon = ActiveSheet.Shapes.AddPicture( _
        SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
    Width:=240, Height:=156)
    End With
End Sub

Posted: **Fri Sep 12, 2014 10:21 pm**

เพิ่มบรรทัดนี้ pic1.PictureSizeMode = fmPictureSizeModeStretch แทน Code ตามด้านล่าง

Code: Select all

Set imgIcon = ActiveSheet.Shapes.AddPicture( _
        SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
    Width:=240, Height:=156)

Posted: **Sat Sep 13, 2014 8:15 am**

snasui wrote: เพิ่มบรรทัดนี้ pic1.PictureSizeMode = fmPictureSizeModeStretch แทน Code ตามด้านล่าง
Code: Select all
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
        SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
    Width:=240, Height:=156)

ขอบคุณครับ

Snasui Excel Forum

การดึงภาพ จาก เซลมาโชว์ใน USER FORM

การดึงภาพ จาก เซลมาโชว์ใน USER FORM

Re: การดึงภาพ จาก เซลมาโชว์ใน USER FORM

Re: การดึงภาพ จาก เซลมาโชว์ใน USER FORM

Re: การดึงภาพ จาก เซลมาโชว์ใน USER FORM

Re: การดึงภาพ จาก เซลมาโชว์ใน USER FORM

Re: การดึงภาพ จาก เซลมาโชว์ใน USER FORM

Re: การดึงภาพ จาก เซลมาโชว์ใน USER FORM

Re: การดึงภาพ จาก เซลมาโชว์ใน USER FORM

Re: การดึงภาพ จาก เซลมาโชว์ใน USER FORM

Re: การดึงภาพ จาก เซลมาโชว์ใน USER FORM