GBKEE

¦^´_ 1# Jared
ªþÀÉ ¬Ý¬Ý

GBKEE

¦^´_ 3# Jared

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, R As Integer, C As Integer
   
4.     Dim S As String
   
5.     R = 10  '²Ä10­Ó Image  ¦Cªº¦ì¸m
   
6.     C = 1   '²Ä10­Ó Image  ø󪺦ì¸m
   
7.     With ActiveSheet
   
8.         i = 10
   
9.         On Error Resume Next
   
10.         Do
    
11.             .OLEObjects("Image" & i).Delete
    
12.             i = i + 1
    
13.         Loop Until Err <> 0
    
14.         Err.Clear
    
15.         On Error GoTo 0
    
16.         S = Dir(ThisWorkbook.Path & "\Test\*.gif")
    
17.         i = 0
    
18.         Do While S <> ""
    
19.             i = i + 1
    
20.             If i <= 9 Then
    
21.                 .OLEObjects("Image" & i).Object.Picture = LoadPicture(ThisWorkbook.Path & "\Test\" & S)
    
22.             Else
    
23.              With .OLEObjects.Add(ClassType:="Forms.Image.1", Left:=.Cells(R, C).Left, Top:=.Cells(R, C).Top, Width:=.Cells(R, C).Resize(, 2).Width, Height:=.Cells(R, C).Resize(3).Height)
    
24.                 .Name = "Image" & i
    
25.                 .Object.Picture = LoadPicture(ThisWorkbook.Path & "\Test\" & S)
    
26.                 R = R
    
27.                 C = C + 2 'Image ¦³3Äæ(Äæ¼e=2)
    
28.                 If C > 6 Then
    
29.                     C = 1
    
30.                     R = R + 3  'Image ¦³3¦C(¦C°ª=3¦C)
    
31.                 End If
    
32.              End With
    
33.             End If
    
34.             S = Dir
    
35.         Loop
    
36.         i = i + 1
    
37.         On Error Resume Next
    
38.         Do
    
39.             If i <= 9 Then
    
40.                 .OLEObjects("Image" & i).Object.Picture = LoadPicture("")
    
41.             End If
    
42.             i = i + 1
    
43.         Loop Until Err <> 0
    
44.     End With
    
45. End Sub

½Æ»s¥N½X