- ©«¤l
- 14
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 17
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-10-22
- ³Ì«áµn¿ý
- 2018-7-24
|
GBKEE ¤j..
§Úµo²{¨ì ì¨ÓìPO ªº²Ä¤T©«´N¬O±µªñ§Ú·Qnªº¥\¯à¤F..
¦]¬°§Ú¥±`¥Îªº´N¬O Ãþ¦ü³o¼Ë..
¥u¬O·Qnª¾¹Dªº¬O§_¦³¿ìªk¦A¼W¶i¬°
1¡B¥i¨q¥X¤¤¤åÀɦW
2¡B¸Ó¸ê®Æ§¨ªº¹ÏÀɳ£¤@¦¸PO¤W (³oÓ½d¨Ò§Úè¸Õ¹L.. ¤£ª¾¬°¦ó´N¬OµLªk§â D:\Test ¤¤ªº¥þ³¡³£¥á¤J ?? )
3¡B¹ÏÀÉÄÝ©Ê ¦Û°ÊÅܬ° "¤j¤p¦ì¸mÀHÀx¦s®æ¦ÓÅÜ"
¦]¬°³o³¡¥÷¦pªG§Ñ°O§ïªº¸Ü~~°õ¦æ¤F¿z¿ï¥\¯à«á¡A¹Ï¸ò쥻¥k¤è¬Û¹ïÀ³ªº¼ÆÈ¡B¤å¦r·|¿ù¶Ã
¬O§_¦³§ó¤è«Kªº¤è¦¡¯à¸Ñ¨M©O¡H- Sub PHOTO()
- ActiveSheet.Columns("C") = ""
- Set Sh = ActiveSheet
- With Sh
- .Pictures.Delete
- End With
- fs = Dir("D:\TEST\*.jpg")
- Do Until fs = ""
- R = R + 1
- Cells(R, 3) = fs
- Cells(R, 2).Select
- ActiveSheet.Pictures.Insert("D:\TEST\" & Cells(R, 3)).Select
- With Selection
- .Top = ActiveSheet.Cells(R, 2).Top + 1
- .Left = ActiveSheet.Cells(R, 2).Left + 1
- .Width = ActiveSheet.Cells(R, 2).Width - 1
- .Height = ActiveSheet.Cells(R, 2).Height - 1
- End With
- fs = Dir
- Loop
- End Sub
½Æ»s¥N½X |
|