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

[µo°Ý] EXCEL ,¦p¦ó§â¹Ï¤ùªºÀɮצW³£Åã¥Ü¥X¨Ó???

[µo°Ý] EXCEL ,¦p¦ó§â¹Ï¤ùªºÀɮצW³£Åã¥Ü¥X¨Ó???

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-2-27 15:46 ½s¿è

§Ú²{¦b¬O¥Î¥H¤UªºVBA,¥»¤H¤£·|VBAªº,³£¬Oºô¤W§ä¦^¨Óªº ,
¹Ï¤ù¬O¥[¦n¤F,¦ý¬O¦]¬°¦ÑÁó­n¨C­Ó¹Ï¤UÃä³£­nµù¦W¹Ï¤ùªºÀɮצW,§Úªº¹Ï¦³´X¤d­Ó....¤@­Ó¤@­Ó¥[...§Ú·Q¤µ¤Ñ³£¤£¥Î¤U´³¤F
©Ò¥H§Æ±æ¦U¦ì¦Ñ®v¥i¥H±Ð¤@¤U§Ú­n¦p¦ó°µ
  1. Sub ¹Ï¤ù­«·s±Æ¦C()
  2. Dim xSP As Shape
  3. Dim Ksz As Double, Kss As Double, Sp As Double, Cz As Double, G As Double, K As Double
  4. Dim Mh As Integer, II As Integer
  5. Ksz = ActiveCell.Left '¶}©l¥ª
  6. Kss = ActiveCell.Top '¶}©l¤W
  7. Sp = 35   '¤ô¥­
  8. Cz = 160  '««ª½
  9. G = 0.1    '°ª
  10. K = 170     '¼e
  11. Mh = 4     '¨C¦æ
  12. II = 0
  13. For Each xSP In ActiveSheet.Shapes
  14.      If xSP.Type = msoPicture Then
  15.          With xSP
  16.              .LockAspectRatio = msoFalse
  17.              .Left = Ksz + (Sp + K) * (II Mod Mh)
  18.              .Top = Kss + (Cz + G) * (II \ Mh)
  19.              .Width = 190
  20.              .Height = 143
  21.              II = II + 1
  22.          End With
  23.      End If
  24. Next
  25. End Sub
½Æ»s¥N½X
Wing

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-2-27 20:57 ½s¿è

¦^´_ 1# spiritwing
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xPath As String, xFile As String, Sp As Integer, Cz As Integer, G As Long, K As Integer, Mh As Integer
  4.     Dim ii As Integer
  5.     xPath = "D:\¬Û¤ù\89¦~\"                 '¹Ï¤ùªº¸ê®Æ§¨
  6.     'Dir ¨ç¼Æ ¶Ç¦^¤@­Ó String ¡A¥Î¥Hªí¥Ü¦X¥G±ø¥ó¡BÀÉ®×ÄÝ©Ê¡BºÏºÐ¼Ð°Oªº¤@­ÓÀɮצWºÙ¡B©Î¥Ø¿ý¡BÀɮק¨¦WºÙ¡C
  7.     xFile = Dir(xPath & "*.jpg")            '¹Ï¤ùªº°ÆÀɦW ¬°jpg
  8.     'xFile = Dir(xPath & "*.*")             '¹Ï¤ùªº¸ê®Æ§¨ ³£¬O¹Ï¤ùÀÉ
  9.     With ActiveSheet                        '§@¥Î¤¤ªº¤u§@ªí
  10.         Sp = 35   '¤ô¥­
  11.         Cz = 160  '««ª½
  12.         G = 0.1    '°ª
  13.         K = 170     '¼e
  14.         Mh = 4     '¨C¦æ
  15.         .Pictures.Delete                    '§R°£ ©Ò¦³¹Ï¤ù
  16.         .[a:a] = ""                         '²M°£ AÄæ¸ê®Æ
  17.         ii = 1                              '³]©w¬°1
  18.         Application.ScreenUpdating = False
  19.         Do
  20.             .Cells(ii, 1).Select            '¿ï¾ÜAÄæ ªº²Ä ii Àx¦s®æ(ActiveCell :§@¥Î¤¤ªºÀx¦s®æ)
  21.             .Cells(ii, 1) = xFile           '¼g¤WÀɦW
  22.             With .Pictures.Insert(xPath & xFile)             '´¡¤J¹Ï¤ù
  23.                 .Left = ActiveCell.Offset(, 2).Left          '´¡¤J¹Ï¤ùªº¥ªºÝ¦ì¸m¬O: ActiveCell ¥k²¾2Ä檺¥ªºÝ
  24.                 .Top = ActiveCell.Offset(, 2).Top            '´¡¤J¹Ï¤ùªº¤WºÝ¦ì¸m¬O: ActiveCell ¥k²¾2Ä檺¤WºÝ
  25.                 .Width = 190                                 '³]©w ´¡¤J¹Ï¤ùªº ¼e«×
  26.                 .Height = 143                                '³]©w ´¡¤J¹Ï¤ùªº °ª«×
  27.                 ActiveCell.Offset(, 2).ColumnWidth =33    '³]©w´¡¤J¹Ï¤ù©Ò¦bÀx¦s®æ ªº¼e
  28.                 ActiveCell.Offset(, 2).RowHeight = .Height    '³]©w´¡¤J¹Ï¤ù©Ò¦bÀx¦s®æ ªº°ª
  29.             End With
  30.             xFile = Dir                     'Ä~Äò´M§ä¤U¤@­ÓÀÉ®×
  31.             ii = ii + 1                     'AÄæ ªº²Ä ii Àx¦s®æ©¹¤U¤@¦C
  32.         Loop Until xFile = ""               'Â÷¶} Do °j°éªº±ø¥ó¬O: §ä¤£¨ì ÀÉ®×
  33.         .[A1].Select
  34.         Selection.EntireColumn.AutoFit      'AutoFit ¤èªk ±N½d³ò¤¤ªºÄæ¼e©M¦C°ª½Õ¾ã¬°³Ì¾A·íªº­È
  35.         Application.ScreenUpdating = True   'ScreenUpdating ÄÝ©Ê ©w¦pªG¿Ã¹õ§ó·s¥\¯à¬O¶}±Òªº«h¬° True¡CŪ/¼g Boolean
  36.     End With
  37. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

GBKEE¤j±z¦n¡A¹ï©ó¦¹©«¤º®e«D±`¦³¿³½ì¡A·Q½Ð°Ý¤@¤U¡A¨Ì·Ó±z´£¨Ñªº¥N½X¿é¤J«á¡A
µo¥Í¤F¦p¹Ï¤ù¤¤¤@¼Ëªº¿ù»~¡A½Ð°Ý¸Ó¦p¦ó¸Ñ¨M©O? ·P¿E¤£ºÉ ^^
   

TOP

¦^´_ 3# fusayloveme

2007¤£¤ä´©Pictures.Insert
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh

ÁÂÁÂ~Hsieh¤j ^_^

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD