GBKEE

¦^´_ 1# basarasy

1. Sub Ex()  '¹Ï¤ùªº´¡¤J «D°Êµe
   
2.     Dim Sh As Worksheet, E As Range
   
3.     Set Sh = ActiveSheet
   
4.     With Sh
   
5.         .Pictures.Delete   '§R°£¤u§@ªí¤W©Ò¦³ªº¹Ï¤ù
   
6.         .Range("A1:A10").RowHeight = 40
   
7.         .Range("A1:A10").ColumnWidth = 20
   
8.         
   
9.         '.Range("A1:A10").Offset(, 1).RowHeight = 40   '¥i§ï¥Î A1:A10 ªº¤º®e
   
10.         '.Range("A1:A10").Offset(, 1).ColumnWidth = 20 '¥i§ï¥Î A1:A10 ªº¤º®e
    
11.         
    
12.         For Each E In .Range("A1:A10")
    
13.             With Sh.Pictures.Insert("http://forum.twbts.com/uc_server/avatar.php?uid=462&size=middle")
    
14.                 .Height = E.Height  '¹Ï¤ù°ª«×=Eªº¼e«×
    
15.                 .Width = E.Width    '¹Ï¤ù¼e«×=Eªº°ª«×
    
16.                 .Left = E.Left      '¸m©óEªº¥ªÃä½t
    
17.                 .Top = E.Top        '¸m©óEªº¤WÃä½t
    
18.             'With Sh.Pictures.Insert(E)  '¥i§ï¥Î A1:A10 ªº¤º®e
    
19.               '  .Height = E.Offset(, 1).Height  '¹Ï¤ù°ª«×=E¦V¥k¤@®æªº¼e«×
    
20.               '  .Width = E.Offset(, 1).Width    '¹Ï¤ù¼e«×=E¦V¥k¤@®æªº°ª«×
    
21.               '  .Left = E.Offset(, 1).Left      '¸m©óE¦V¥k¤@®æªº¥ªÃä½t
    
22.               '  .Top = E.Offset(, 1).Top        '¸m©óE¦V¥k¤@®æªº¤WÃä½t
    
23.             End With
    
24.     Next
    
25.   End With
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# basarasy

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.             With A
    
23.                 .Offset(, 1).RowHeight = 40
    
24.                 .Offset(, 1).ColumnWidth = 20
    
25.                 ActiveSheet.Hyperlinks.Add Anchor:=A, Address:=Pc, TextToDisplay:=Pc
    
26.             End With
    
27.             .Height = A.Offset(, 1).Height
    
28.             .Width = A.Offset(, 1).Width
    
29.             .Left = A.Offset(, 1).Left
    
30.             .Top = A.Offset(, 1).Top
    
31.         End With
    
32.         Set A = A.Offset(1)
    
33.     Next
    
34. End Sub

½Æ»s¥N½X