Hsieh

¦^´_ 1# luke

1. Sub Loadimage()
   
2. fd = ThisWorkbook.Path & "\TEST16\"
   
3. Dim Sp As Shape
   
4. For Each Sp In Sheet1.Shapes
   
5.   If Sp.Type = 13 Then Sp.Delete
   
6. Next
   
7. For Each a In Range([B2], [B65536].End(xlUp))
   
8. fs = fd & a & ".gif"
   
9. If Dir(fs) <> "" Then Sheet1.Shapes.AddPicture fs, msoFalse, msoTrue, a.Offset(, 1).Left, a.Top, a.Offset(, 1).Width, a.Height
   
10. Next
    
11. End Sub

½Æ»s¥N½X