basarasy

¦^´_ 1# jntseng

³o­Ó¬OGBKEE¤j¤j±Ðªº.

1. Sub Ex()
   
2.     Dim Ps, Pc, A
   
3.     With Application.FileDialog(msoFileDialogOpen)
   
4.         .Title = "´M§ä¹Ï¤ùÀÉ"
   
5.         .AllowMultiSelect = True   '¦h­«¿ï¨úÀÉ®×
   
6.         .ButtonName = "¶}±Ò¹Ï¤ùÀÉ"
   
7.         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
   
8.         .FilterIndex = 1
   
9.         If .Show = False Then
   
10.             MsgBox "¨S¦³¿ï¾Ü¹Ï¤ùÀÉ ???": Exit Sub
    
11.         Else
    
12.            Set Ps = .SelectedItems
    
13.         End If
    
14.     End With
    
15.     With ActiveSheet
    
16.         Set A = .[A1]
    
17.         .Pictures.Delete
    
18.         .[A:A].Clear
    
19.     End With
    
20.     For Each Pc In Ps
    
21.         With ActiveSheet.Pictures.Insert(Pc)
    
22.            
    
23.             .Height = 120
    
24.             .Width = 120
    
25.             .Left = A.Left
    
26.             .Top = A.Top
    
27.         End With
    
28.         Set A = A.Offset(1)
    
29.     Next
    
30. End Sub

½Æ»s¥N½X