ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó´¡¤J¹Ï¤ù

¦p¦ó´¡¤J¹Ï¤ù

½Ð¤j¤jªù±Ð§Ú¦p¦ó³o¼Ë´¡¤J¹Ï¤ù.><

10060615516784de450d0f1865.gif (513.21 KB)

10060615516784de450d0f1865.gif

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# basarasy


    ¸Õ¸Õ¬ÝGoogl  ehttp://briian.com/?p=2231
¦p¦ó¤À¸ÑGIF°Êµe

³nÅé¦WºÙ¡GIrfanView
³nÅ骩¥»¡G4.10
©x¤èºô¯¸¡Ghttp://www.irfanview.com/
³nÅé¤U¸ü¡G«ö³o¸Ì¤U¸ü
¤¤¤å»y¨t¡G«ö³o¸Ì¡]¸ÑÀ£ÁY«á©ñ¨ìC:\Program Files\IrfanView\Languages¸ê®Æ§¨¡^
¸Õ¸Õ¬ÝÅo..

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-6-29 19:42 ½s¿è

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ basarasy ©ó 2010-6-29 17:03 ½s¿è

¦^´_ 3# GBKEE

ÁÂÁ GBKEEª©¥D.
³o­Ó¹ï§Ú«Ü¦³¥Î><

¦ý¬O§Ú·Q¦n¹³¥L¨º¼Ë,¥h«ü©w¦a¤è1¦¸¹L§â·Q­nªº¹Ï¥[¤J
aÄæ¥X¶W³sµ²  bÄæ¥X±i²Ó¹Ï
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-6-29 19:41 ½s¿è

¦^´_ 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

TOP

¦^´_ 5# GBKEE


¯uªº«ÜÁÂÁ GBKEEª©¥D.^^
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

  1. Sub Ex()
  2. Dim A As Range
  3. On Error Resume Next
  4. Sheet1.Pictures.Delete
  5. For Each A In Selection
  6.   With ActiveSheet.Pictures.Insert(A.Text)
  7.   i = i + 1
  8.   If i <> ActiveSheet.Pictures.Count Then MsgBox "¹Ï¤ù¥¼¥[¤J,½ÐÀˬd¸ô®|" & A: i = i - 1
  9.      .Top = A.Top
  10.      .Left = A.Offset(, 1).Left
  11.      .Height = 120
  12.      .Width = 120
  13.      A.RowHeight = .Height
  14.      A.Offset(, 1).ColumnWidth = .Width / 5.6
  15.   End With
  16. Next
  17. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# Hsieh

ÁÂÁ Hsiehª©¥D.
³o­Ó¥i¥H¼g¤Ö¦n¦h.><
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD