Hsieh

10±i¹Ï¤À§O´¡¤J5±i¤u§@ªí
¨C±i¤u§@ªí2±i¹Ï

1. Sub ex()
   
2. d = "D:\"
   
3. f = "*.png"
   
4. fs = Dir(d & f)
   
5. i = 1
   
6. Do Until fs = ""
   
7.    With Sheets(i).Pictures.Insert(d & fs)
   
8.    If s Mod 2 = 0 Then _
   
9.    .Top = Sheets(i).[B9].Top: .Left = Sheets(i).[B9].Left _
   
10.    Else .Top = Sheets(i).[J9].Top: .Left = Sheets(i).[J9].Left
    
11.    End With
    
12.    s = s + 1
    
13.    If s Mod 2 = 0 Then i = i + 1
    
14.    fs = Dir
    
15. Loop
    
16. End Sub

½Æ»s¥N½X