Snasui Excel Forum

:D Code นั้นยังเป็นต้นฉบับ ยังไม่มีการปรับปรุงมาโดยตนเอง ลองปรับเองดูก่อน ติดแล้วค่อยถามกันต่อ
หนูขอถามนิดนึงได้ไหมคะ ตอนนี้ติดตรง Set ra = .Range("C2", .Range("B8000").End(xlUp).Offset(0, 1))
ถ้าตรง C2 เปลี่ยนเป็นช่วงยังไงได้บ้างคะ คือสมมติมีข้อมูลตั้งแต่ C2 ถึง C10 แล้วถ้าหนูจะเลือกแค่ C3 ถึง ...

คือตอนนี้สามารถดึงรูปมาไว้ใน excel ได้แล้วค่ะ โดยใช้ code ดังนี้ค่ะ
Sub ShowPic()
Dim r As Range, ra As Range
Dim imgIcon As Object
Dim obj As Object
On Error Resume Next
With Worksheets("Sheet1")
Set ra = .Range("C2", .Range("B65536").End(xlUp).Offset(0, 1))
End With
For Each obj In ...