code show picture

[ANUSARA]

ลองทำ code vba ที่เวลาเราเลือกรายการจะมีรูปของแต่ละรายการแสดงมาด้วยค่ะ

Sub GoGetPictureRefrigeratorCan1()

xFile = ThisWorkbook.Path & "\Refrigerator\" & Range("xIndexTypeRefrigerator_Can1") & ".png"

X = 130
Y = 250

On Error Resume Next
ActiveSheet.Shapes("Pix(" & Range("xShowRefrigeratorCan1").Row & "," & Range("xShowRefrigeratorCsn1").Column & ")").Delete

On Error GoTo xError
ActiveSheet.Shapes.AddPicture(xFile, True, True, Range("xShowRefrigeratorCan1").Left, Range("xShowRefrigeratorCan1").Top, X, Y).Name = "Pix(" & Range("xShowRefrigeratorCan1").Row & "," & Range("xShowRefrigeratorCan1").Column & ")"

xError:

End Sub

ลองใช้ code ตามด้านบนค่ะ

ได้แนบรูปของ sheet1และ 2 ที่รูปไปขึ้นทับข้อมูลมาให้ดูค่ะ
แต่รูปที่แนบมาด้วยนั้น แสดงภาพเวลาที่เราเลือกข้อมูลไว้ใน sheet1 กลับไปแสดงและบังข้อมูลใน sheet2 ที่เป็นส่วนแสดงผลข้อมูลด้วย

ส่วนไฟล์ excel ที่แนบมาเป็นตัวอย่างที่คล้ายกับงานที่ทำค่ะ ไม่ได้แนบไฟล์รูปที่จะให้แสดงมาด้วยเพราะ upload ไม่ได้
ดังนั้นถ้ากดเลือกข้อมูลในไฟล์ excel ที่แนบไปรูปจะไม่ขึ้นนะคะ แต่ส่งมาให้ดูรูปแบบค่ะ

จากcode นี้ต้องปรับตรงไหนคะเพื่อไม่ให้รูปไปขึ้นบังข้อมูลที่ sheet2 ค่ะ

ขอบคุณค่ะ

[snasui]

ลองปรับข้อความที่ทำสีไว้ให้ด้านล่างเป็นค่าอื่น ๆ ครับ

ActiveSheet.Shapes.AddPicture(xFile, True, True, Range("xShowRefrigeratorCan1").Left, Range("xShowRefrigeratorCan1").Top, X, Y)

ยกตัวอย่างด้านล่างปรับเป็น 250 ทั้งสองค่า

ActiveSheet.Shapes.AddPicture(xFile, True, True, 250, 250, X, Y)

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

ActiveSheet.Shapes.AddPicture(xFile, True, True, Range("xShowRefrigeratorCan1").Left -100, Range("xShowRefrigeratorCan1").Top, X, Y)

Note: Syntax ของ AddPicture คือ

expression.AddPicture(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

[ANUSARA]

ลองปรับ code ตามด้านล่างแล้วค่ะ
Sub GoGetPictureRefrigeratorCan1()

xFile = ThisWorkbook.Path & "\Refrigerator\" & Range("xIndexTypeRefrigerator_Can1") & ".png"

X = 130
Y = 250

On Error Resume Next
ActiveSheet.Shapes("Pix(" & Range("xShowRefrigeratorCan1").Row & "," & Range("xShowRefrigeratorCsn1").Column & ")").Delete

On Error GoTo xError
ActiveSheet.Shapes.AddPicture(xFile, True, True, Range("xShowRefrigeratorCan1").Left + 95, Range("xShowRefrigeratorCan1").Top, X, Y).Name = "Pix(" & Range("xShowRefrigeratorCan1").Row & "," & Range("xShowRefrigeratorCan1").Column & ")"

xError:

End Sub

ลองทำแล้วได้ดังภาพ 2sheet1 (sheet1 ที่ให้ใส่ข้อมูล) --> ภาพเก่าไม่หายไปค่ะ จะเพิ่ม code เพื่อให้ภาพเก่าหายไปได้ไหมคะ
2sheet2 (sheet2 ส่วนแสดงผล)--> ภาพเก่ายังขึ้นซ้อนตารางอยู่ค่ะ จริงๆไม่อยากให้ภาพมาแสดงที่หน้านี้อีกอยากให้แสดงที่หน้าเพียงอย่างเดียวค่ะ

รบกวนอีกครั้งนะคะ ขอบคุณค่ะ

[snasui]

มี Code สำหรับ Delete อยู่แล้วครับ แต่น่าจะเขียนผิด สังเกตจากสีตัวอักษรด้านล่างครับ

ActiveSheet.Shapes("Pix(" & Range("xShowRefrigeratorCan1").Row & "," & Range("xShowRefrigeratorCsn1").Column & ")").Delete

ที่ถูกควรเป็น

ActiveSheet.Shapes("Pix(" & Range("xShowRefrigeratorCan1").Row & "," & Range("xShowRefrigeratorCan1").Column & ")").Delete

[ANUSARA]

ขอบคุณค่ะ ใช้ได้แล้วค่ะ