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

´¡¤J¹Ï¤ùvba°ÝÃD

´¡¤J¹Ï¤ùvba°ÝÃD

¦p¦ó¦b  a3´¡¤J¹Ï¤ù D:\¹Ï¤ù2\144.JPG  ¦A§ï寛«×¬°10cm?  ³o­Óvba¤£·|¼g><
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

ÁÂÁÂHsieh¤j¤À¨É, «D±`¨ü¥Î

TOP

  1. Sub InputPictures()
  2. Dim fs(), A As Range
  3. If ActiveSheet.Shapes.Count > 0 Then
  4. ActiveSheet.Shapes.SelectAll
  5. Selection.Delete
  6. End If
  7. On Error GoTo 10
  8. fs = Application.GetOpenFilename("©Ò¦³¹Ï¤ù(*.jpg;*.png;*.tiff;*.bmp;*.gif),*.jpg;*.png;*.tiff;*.bmp;*.gif", , , , True)
  9. For i = 1 To UBound(fs)
  10. Set A = Cells(i, 1)
  11. A = fs(i)
  12. With ¤u§@ªí1.Shapes.AddPicture(fs(i), True, True, A.Offset(, 1).Left, A.Top, A.Offset(, 1).Width, A.Offset(, 1).Height)
  13. .Placement = xlMoveAndSize
  14. End With
  15. Next
  16. 10
  17. End Sub
½Æ»s¥N½X
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ´£¨Ñ¾Ç²ß«D±`¹ê¥Î
JOYARK

TOP

½Ð°Ý¦³ÉN¤j¤j¥i¥H±Ð§Ú  3¼Ó wqfzqgk ¤j¤jªº´¡¤J¹Ï¤ù¤èªk?
§Ú¥Îªº¬O2007 .
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 7# PD961A

Åv­­¤£¨¬,¤£¯à¤U¸ü.
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ PD961A ©ó 2010-6-28 17:46 ½s¿è

¦^´_ 6# basarasy


    ¤U¸ü´N¦n°Õ..
¦Ó¥BHSª©¥Dµ{¦¡½X¤]¼g¦n¤F..
ÁÂÁÂ..

TOP

¦^´_ 5# PD961A


    §Ú¬O°Ý¥L´¡¤J¹Ï¤ùªºVBA¦p¦ó¼g.
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 4# basarasy

http://forum.twbts.com/viewthread.php?tid=670

    ½Ð°Ñ¦Ò1¼Ó¤p³½¨à¥S´£¨Ñ¦nªF¦è.
http://www.officefans.net/cdb/vi ... age=1&tid=12967

CTRL+SHIFT+ALT ¶}©l \ µ²§ô
¥t¦s ¸ô®| ÀɦW ´N¬O°Ê±ÞÀɤF

TOP

wqfzqgk µoªí©ó 2010-6-6 15:51



    ½Ð°Ý¤§­Ó¦p¦ó¼gªº?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD