Snasui Excel Forum

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

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

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

'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 ...

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

ความต้องการของผมคือ ต้องการดึงรูปภาพจากที่อยู่ของโฟล์เดอร์เดิม เพิ่มเข้าไปไว้ในคอลัมน์ I อีกอันนึง ...