Page 1 of 1
การดึงรูปภาพจากโฟลเดอร์มาแสดงใน excel
Posted: Thu Jan 30, 2020 12:26 pm
by ykk
รบกวนสอบถามหน่อยครับ
พอดีได้ศึกษาวิธีการดึงภาพจากโฟลเดอร์มาแสดงใน excel จากกระทู้นี้ครับ
https://www.snasui.com/viewtopic.php?t=324
ในไฟล์ที่แนบ หลังจากคลิกเลือกรายการแล้ว
การแสดงภาพก็โอเคครับ แต่พอคลิกเลือกรายการ ครั้งต่อๆไป มันจะเคลียทั้งภาพอันเก่า และ Objectes อื่นๆ ออกไปด้วยหมดเลย
ซึ่งผมมี Objectes อื่นอยู่ในชีทนี้ด้วยครับ
จากโค๊ดข้างล่างนี้ จะปรับแก้ตรงไหนให้เคลียเฉพาะภาพที่เคยแสดงก่อนหน้านี้ เท่านั้นครับ
# ภาพจะเก็บใน D:\showpic ครับ
ขอบคุณครับ
Code: Select all
Sub show_pic()
Dim r As String
Dim imgIcon
On Error Resume Next
ActiveSheet.Shapes(1).Delete
r = Range("AC10").Value
With Range("AJ5")
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:="D:\showpic\" & r & ".jpg", LinkToFile:=False, _
SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
Width:=80, Height:=90)
End With
Set imgIcon = Nothing
End Sub
ShowPic-test.xlsm
Re: การดึงรูปภาพจากโฟลเดอร์มาแสดงใน excel
Posted: Thu Jan 30, 2020 9:05 pm
by snasui
Code เดิมตาม Link ที่แนบมาจะ Clear เฉพาะภาพที่มีชื่อขึ้นต้นว่า "Pict" เท่านั้นครับ
ใน Code ปัจจุบันนี้ลองตรวจสอบว่าภาพที่นำมาวางชื่ออะไร ก็ให้ดักจับด้วยชื่อที่ขึ้นต้นแบบเดียวกันนั้นเพื่อลบทิ้ง
หรือหากจะลบด้วย Object สุดท้ายก็จะใช้ Code ที่นำมาวางล่าสุดก็จะเป็นแบบนี้ครับ
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
Re: การดึงรูปภาพจากโฟลเดอร์มาแสดงใน excel
Posted: Fri Jan 31, 2020 11:13 am
by ykk
ขอบคุณมากครับอาจารย์
ลองปรับแก้ตามที่ท่านแนะนำ (ลบด้วย Object สุดท้าย) ก็ยังเป็นเหมือนเดิมครับ
หรือผมผิดพลาดตรงไหนครับ
Code: Select all
Sub show_pic()
Dim r As String
Dim imgIcon
On Error Resume Next
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
r = Range("AC10").Value
With Range("AJ5")
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:="D:\showpic\" & r & ".jpg", LinkToFile:=False, _
SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
Width:=80, Height:=90)
End With
Set imgIcon = Nothing
End Sub
Re: การดึงรูปภาพจากโฟลเดอร์มาแสดงใน excel
Posted: Fri Jan 31, 2020 9:32 pm
by puriwutpokin
แก้ตรงนี้ดูครับ
Code: Select all
ActiveSheet.Shapes(Range("aj5:aj10")).Delete
Re: การดึงรูปภาพจากโฟลเดอร์มาแสดงใน excel
Posted: Sat Feb 01, 2020 9:53 am
by ykk
จากโค๊ดใน #3 ลองปรับแก้ตามที่ท่าน puriwutpokin แนะนำแล้ว
ผลคือ Objectes อื่นๆ ไม่หายไปครับ
แต่ ภาพเก่าจะไม่ถูกลบออกไปเมื่อคลิกเลือกรายการ ครั้งต่อๆไปครับ มันจะซ้อนทับกันอยู่ครับ
ขอบคุณท่าน puriwutpokin มากครับ
Re: การดึงรูปภาพจากโฟลเดอร์มาแสดงใน excel
Posted: Sat Feb 01, 2020 9:58 am
by snasui
ykk wrote: Fri Jan 31, 2020 11:13 am
ลองปรับแก้ตามที่ท่านแนะนำ (ลบด้วย Object สุดท้าย) ก็ยังเป็นเหมือนเดิมครับ
หรือผมผิดพลาดตรงไหนครับ
ถ้าลบแล้วไม่หายก็แสดงว่าภาพที่นำมาวางล่าสุดไม่ใช่ Object สุดท้ายที่โปรแกรมตรวจจับได้ครับ
อีกทางเลือกคือใช้ Loop เข้ามาช่วยเพื่อตรวจสอบว่า Object สุดท้ายที่เป็นภาพคืออะไรแล้วค่อยลบ Object นั้นทิ้งก่อนจะนำภาพมาวางครับ
Re: การดึงรูปภาพจากโฟลเดอร์มาแสดงใน excel
Posted: Sat Feb 01, 2020 10:55 am
by ykk
พอดีเพิ่งเริ่มศึกษา vba ครับ ยังไงก็จะพยายามดูครับ
Re: การดึงรูปภาพจากโฟลเดอร์มาแสดงใน excel
Posted: Sat Feb 01, 2020 10:59 am
by snasui
การใช้ Code ต้องใช้ประสบการณ์อย่างมาก ขอเอาใจช่วยในทุกความพยายามครับ
ทำเองแล้วติดตรงไหนสามารถถามมาได้เรื่อย ๆ ประเด็นคือต้องเขียนมาเองก่อนตามกฎการใช้บอร์ด
ได้เท่าไรก็เท่านั้น ทุกคำถามที่ไดผ่านความพยายามมาเองแล้วมักจะมีคำตอบครับ