oobird

1. Private Sub CommandButton1_Click()
   
2.     Dim shp As Shape, c As Range
   
3.     On Error Resume Next
   
4.     For Each shp In ActiveSheet.Shapes
   
5.         If Not shp.Type = 12 Then shp.Delete
   
6.     Next
   
7. 
   
8.     For Each c In Range("b2", [b65536].End(3))
   
9.         On Error Resume Next
   
10.         c(1, 2).Select
    
11.         Set p = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\TEST16\" & c & ".gif")
    
12.         With p
    
13.             .Name = c.Value
    
14.             .Height = c(1, 2).Height
    
15.             .Width = c(1, 2).Width
    
16.             .Placement = xlMoveAndSize
    
17.          End With
    
18.     Next
    
19. 
    
20. End Sub

½Æ»s¥N½X