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

¹Ï¤ù¶×¤J°ÝÃD

¹Ï¤ù¶×¤J°ÝÃD

¤£¦n·N«ä ¤p§Ì­nµo°Ý¤@¤U

¤p§Ì±N©Ò»Ýªº¹Ï¤ùÀɮ׳£©ñ¸m D:/TEST ¸Ì­±

¦ýÀH®É·|·s¼W¹Ï¤ù  

ÀɦW¨Ì§Ç¬O1-1 ,  1-2 , 1-3.......... ¥H¦¹Ãþ±À

·Q½Ð°Ý¤@¤U¦p¦óŪ¨ú¹Ï¤ùÀÉ®× ¨Ì§Ç¶K¤WBÄ檺Àx¦s®æ µM«á  CÄæ¨Ì§ÇÅã¥Ü¥XÀɦW©O

½Ð±Ð¤@¤U¦U¦ì¤j¤j>"<
WOW

¦^´_ 1# g93353

¥ý½Õ¾ã¦nBÄ檺Äæ¼e¦C°ª(·Ó¤ùªº¤j¤p)
  1. Sub PHOTO()
  2. ActiveSheet.Columns("C") = ""
  3. Set Sh = ActiveSheet
  4. With Sh
  5.     .Pictures.Delete
  6. End With
  7. fs = Dir("D:\TEST\*.jpg")
  8. Do Until fs = ""
  9.    R = R + 1
  10.    Cells(R, 3) = fs
  11.    Cells(R, 2).Select
  12.    ActiveSheet.Pictures.Insert("D:\TEST\" & Cells(R, 3)).Select
  13.    With Selection
  14.        .Top = ActiveSheet.Cells(R, 2).Top + 1
  15.        .Left = ActiveSheet.Cells(R, 2).Left + 1
  16.        .Width = ActiveSheet.Cells(R, 2).Width - 1
  17.        .Height = ActiveSheet.Cells(R, 2).Height - 1
  18.    End With
  19.    fs = Dir
  20. Loop
  21. End Sub
½Æ»s¥N½X

TOP

·PÁ register313 ªº¦^ÂÐ!!!!
WOW

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD