Hsieh

¦^´_ 1# h99949
¸Õ¸Õ¬Ý
¤u§@ªí¼Ò²Õ

1. Private Sub Worksheet_Calculate()
   
2. For Each a In Range([B3], [B3].End(xlDown))
   
3.   fs = Dir("D:\catalogue\" & a & ".jpg")
   
4.   If fs <> "" Then
   
5.      With ActiveSheet.Pictures.Insert("D:\catalogue\" & fs)
   
6.      Set c = a.Offset(, 9)
   
7.      .Left = c.Left
   
8.      .Top = c.Top
   
9.      .Height = c.Height
   
10.      .Width = c.Width
    
11.      End With
    
12.   End If
    
13. Next
    
14. End Sub

½Æ»s¥N½X