แทรกรูปภาพ

[Ponpimon]

ที่หน้า home เมื่อคลิกปุ่ม กรอกข้อมูลนิสิตในที่ปรึกษา จะมีหน้าต่างแสดงขึ้นมาให้กรอกข้อมูล และอัพโหลดรูปภาพเก็บไว้ เมื่อกดแทรกรูปภาพ อยากให้รูปภาพไปเก็บไว้ที่หน้า class4 ในเซลล์แรกคือเซลล์x4 แล้วเมื่อมีการกรอกข้อมูลของคนถัดไป อยากให้รูปภาพถัดไปอยุ่ในเซลล์ x5 x6 ไปเรื่อยๆ

[snasui]

คลิกแล้ว Error แก้ไขการ Error เสียก่อนครับ

[Ponpimon]

แก้ไข error แล้วค่ะ

[snasui]

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

Code: Select all

Dim rp As Range
'Other code
Set rp = Sheets("class4").Range("a" & Rows.Count).End(xlUp).Offset(1, 23)
With pic
    .ShapeRange.LockAspectRatio = msoFalse
    .Height = rp.Height
    .Width = rp.Width
    .Top = rp.Top
    .Left = rp.Left
    .Placement = xlMoveAndSize
End With
'Other code

[Ponpimon]

ใช้งานได้แล้วค่ะ ขอโทษนะคะที่ไม่ได้มารายงานผลค่ะ ^^