การดึงรูปภาพจากโฟลเดอร์มาแสดงใน excel

[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

[snasui]

Code เดิมตาม Link ที่แนบมาจะ Clear เฉพาะภาพที่มีชื่อขึ้นต้นว่า "Pict" เท่านั้นครับ

ใน Code ปัจจุบันนี้ลองตรวจสอบว่าภาพที่นำมาวางชื่ออะไร ก็ให้ดักจับด้วยชื่อที่ขึ้นต้นแบบเดียวกันนั้นเพื่อลบทิ้ง

หรือหากจะลบด้วย Object สุดท้ายก็จะใช้ Code ที่นำมาวางล่าสุดก็จะเป็นแบบนี้ครับ ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete

[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

[puriwutpokin]

แก้ตรงนี้ดูครับ

Code: Select all

 ActiveSheet.Shapes(Range("aj5:aj10")).Delete

[ykk]

จากโค๊ดใน #3 ลองปรับแก้ตามที่ท่าน puriwutpokin แนะนำแล้ว
ผลคือ Objectes อื่นๆ ไม่หายไปครับ
แต่ ภาพเก่าจะไม่ถูกลบออกไปเมื่อคลิกเลือกรายการ ครั้งต่อๆไปครับ มันจะซ้อนทับกันอยู่ครับ

ขอบคุณท่าน puriwutpokin มากครับ

[snasui]

ลองปรับแก้ตามที่ท่านแนะนำ (ลบด้วย Object สุดท้าย) ก็ยังเป็นเหมือนเดิมครับ
หรือผมผิดพลาดตรงไหนครับ

ถ้าลบแล้วไม่หายก็แสดงว่าภาพที่นำมาวางล่าสุดไม่ใช่ Object สุดท้ายที่โปรแกรมตรวจจับได้ครับ

อีกทางเลือกคือใช้ Loop เข้ามาช่วยเพื่อตรวจสอบว่า Object สุดท้ายที่เป็นภาพคืออะไรแล้วค่อยลบ Object นั้นทิ้งก่อนจะนำภาพมาวางครับ

[ykk]

พอดีเพิ่งเริ่มศึกษา vba ครับ ยังไงก็จะพยายามดูครับ

[snasui]

การใช้ Code ต้องใช้ประสบการณ์อย่างมาก ขอเอาใจช่วยในทุกความพยายามครับ

ทำเองแล้วติดตรงไหนสามารถถามมาได้เรื่อย ๆ ประเด็นคือต้องเขียนมาเองก่อนตามกฎการใช้บอร์ด ได้เท่าไรก็เท่านั้น ทุกคำถามที่ไดผ่านความพยายามมาเองแล้วมักจะมีคำตอบครับ