Page 1 of 1
แทรกรูปภาพ
Posted: Thu Feb 12, 2015 7:49 pm
by Ponpimon
ที่หน้า home เมื่อคลิกปุ่ม กรอกข้อมูลนิสิตในที่ปรึกษา จะมีหน้าต่างแสดงขึ้นมาให้กรอกข้อมูล และอัพโหลดรูปภาพเก็บไว้ เมื่อกดแทรกรูปภาพ อยากให้รูปภาพไปเก็บไว้ที่หน้า class4 ในเซลล์แรกคือเซลล์x4 แล้วเมื่อมีการกรอกข้อมูลของคนถัดไป อยากให้รูปภาพถัดไปอยุ่ในเซลล์ x5 x6 ไปเรื่อยๆ
Re: แทรกรูปภาพ
Posted: Thu Feb 12, 2015 11:36 pm
by snasui
คลิกแล้ว Error แก้ไขการ Error เสียก่อนครับ
Re: แทรกรูปภาพ
Posted: Fri Feb 13, 2015 1:47 am
by Ponpimon
แก้ไข error แล้วค่ะ
Re: แทรกรูปภาพ
Posted: Fri Feb 13, 2015 7:15 am
by 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
Re: แทรกรูปภาพ
Posted: Sat Mar 14, 2015 9:04 pm
by Ponpimon
ใช้งานได้แล้วค่ะ ขอโทษนะคะที่ไม่ได้มารายงานผลค่ะ ^^