ต้องการดึงไฟล์รูปจากโฟลเดอร์ เพื่อให้แสดงรูปภาพไว้ในเซลล์

[seagram]

รวบกวนด้วยครับ ผมมีไฟล์ที่ใส่สูตร VBA เข้าไปเพื่อดึงไฟล์.jpg จากโฟล์เดอร์ที่ต้องการมาให้แสดงรูปภาพไว้ในคอลัมน์ G
จากไฟล์ตัวอย่าง สูตร คือ Set ra = .Range("G2", .Range("F65536").End(xlUp).Offset(0, 1))

ความต้องการของผมคือ ต้องการดึงรูปภาพจากที่อยู่ของโฟล์เดอร์เดิม เพิ่มเข้าไปไว้ในคอลัมน์ I อีกอันนึง
โดยเขียน code ให้ไปดึงข้อมูลมาแสดงในช่วง (I2 , H65536)
ต้องเขียน code ตรงจุดไหนเพิ่มบ้างครับ
ขอบคุณครับ

[bank9597]

รวบกวนด้วยครับ ผมมีไฟล์ที่ใส่สูตร VBA เข้าไปเพื่อดึงไฟล์.jpg จากโฟล์เดอร์ที่ต้องการมาให้แสดงรูปภาพไว้ในคอลัมน์ G
จากไฟล์ตัวอย่าง สูตร คือ Set ra = .Range("G2", .Range("F65536").End(xlUp).Offset(0, 1))

ความต้องการของผมคือ ต้องการดึงรูปภาพจากที่อยู่ของโฟล์เดอร์เดิม เพิ่มเข้าไปไว้ในคอลัมน์ I อีกอันนึง
โดยเขียน code ให้ไปดึงข้อมูลมาแสดงในช่วง (I2 , H65536)
ต้องเขียน code ตรงจุดไหนเพิ่มบ้างครับ
ขอบคุณครับ

เดี๋ยวรอท่านอื่นมาช่วยอีกทีครับ เรื่องดึกรูปภาพมาแสดง มยังไม่เคยทำเลยเหมือนกันครับ

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

'Other code
For Each r In ra
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    Filename:="C:\Users\tee\Desktop\New folder8\" & r.Offset(0, -1).Value & ".png", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _
    Width:=r.Width, Height:=r.Height)
    Set r = r.Offset(0, 2)
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    Filename:="C:\Users\tee\Desktop\New folder8\" & r.Offset(0, -1).Value & ".png", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _
    Width:=r.Width, Height:=r.Height)
Next r

[seagram]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

'Other code
For Each r In ra
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    Filename:="C:\Users\tee\Desktop\New folder8\" & r.Offset(0, -1).Value & ".png", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _
    Width:=r.Width, Height:=r.Height)
    Set r = r.Offset(0, 2)
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    Filename:="C:\Users\tee\Desktop\New folder8\" & r.Offset(0, -1).Value & ".png", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _
    Width:=r.Width, Height:=r.Height)
Next r

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

[snasui]

Code นี้กำหนดให้เท่ากับเซลล์ หากต้องการกำหนดให้เท่าตามที่ต้องการให้เขียนมาใหม่ ติดตรงไหนแล้วค่อยถามกันต่อ

กระทู้นี้มีผู้แจ้งให้ลบเนื่องจากเกี่ยวกับงาน ผมพิจารณาแล้วไม่พบสิ่งที่น่าจะเป็นปัญหา ทุกกระทู้ที่ถามล้วนแล้วแต่เกี่ยวกับงานทั้งนั้นแล้วแต่ว่าจะมากน้อย และแม้กระทู้นี้จะมีปัญหาก็ควรจะแก้ไขหรือเปลี่ยนแปลงเนื้อหาที่เป็นปัญหานั้นแทนการลบกระทู้ ให้แจ้งสิ่งที่ต้องการเปลี่ยนแปลงมาแทนครับ

[seagram]

[quote="snasui"] Code นี้กำหนดให้เท่ากับเซลล์ หากต้องการกำหนดให้เท่าตามที่ต้องการให้เขียนมาใหม่ ติดตรงไหนแล้วค่อยถามกันต่อ

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

[snasui]

ไม่พบ Code ที่ Update มาเองแล้วในไฟล์แนบ

ที่อธิบายมาแสดงว่าต้องการให้อยู่ในเซลล์ ไม่ใช่เท่ากับเซลล์ สามารถปรับที่ width และ heigth ใน Code ลองลบด้วยค่าใด ๆ ดูครับ

กรณีลบปุ่มออกไปด้วยก็ต้องเขียน Code ดักว่าหากไม่ใช่ภาพก็ไม่ต้องลบออกไปครับ

[premmakorn11]

ขอบคุณอาจารย์มากค่ะ มีประโยชน์มากเลยค่ะ

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

ขอบคุณค่ะ

[snasui]

ตัวอย่างการปรับให้อยู่กลางเซลล์ศึกษาได้จากกระทู้นี้ครับ viewtopic.php?f=3&t=5925

[premmakorn11]

อาจารย์ค่ะ หนึ่งลองไปดูตามลิงค์ที่อาจารย์ให้มาแล้วค่ะ แต่ปรับไม่ได้ค่ะ งงมากๆ
รบกวนอาจารย์ช่วยอธิบายให้หน่อยได้ไหมค่ะ

หนึ่งแนบ File มาให้ดูด้วยค่ะ

Test.xls

ขอบคุณล่วงหน้านะค่ะ

[snasui]

ช่วยยก Code มาถามเฉพาะบรรทัดที่ไม่เข้าใจครับ