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

¤@­Ó¬d¸ßªºªí³æ,

¦^´_ 12# Hsieh
Hsiehª©¥D,
¤µ¤Ñ¦A¨ì³o½×¾Â, ¬Ý¨ì³o½g¤å³¹, ¤U¸ü¤F§Æ±æ¤é«á¯à±q¤¤¾Ç²ß,
¦³¤@°ÝÃD·Q½Ð±Ðª©¤j, ·í±q¤U©Ô¤¤¿ï©w½s¸¹, «K¥X²{°õ¦æ¿ù»~449, µ{¦¡¤¤¦³¶À¦â¿ù»~³B, ¤j¤j, ¨ì©³¬O¦ó°ÝÃD, ½Ð±Ð..·P®¦..
a.rar (580.29 KB)

TOP

¦^´_ 21# ©P¤j°¶
¨Sª`·N¨ì2003¥H¥~ª©¥»¡A¹Ïªí·s¼W®É¡A¤£¥i©¿²¤left»Ptop¤Þ¼Æ
With Sheet1.ChartObjects.Add(1, 1, PicAr(k).Width, PicAr(k).Height)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 22# Hsieh

ÁÂÁ¤j¤j«ü¾É, §âµ{¦¡½X´«¤W, °ÝÃD«K¥X²{¤U¦C±¡ªp,
°õ¦æ¿ù»~¶¥¬q76, Chart.Export fs '¥H¹Ïªí¶×¦¨¹Ï¤ù
½Ð¤j¤j±Ð¾É..·P®¦..

TOP

¦^´_ 23# ©P¤j°¶


    ¥i¯à¬O
Private Const fs = "E:\temp.jpg" '¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m
³o­Ó¥Ø¿ý¦ì¸m¤£¦s¦b
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ ©P¤j°¶ ©ó 2012-9-25 23:40 ½s¿è

¦^´_ 24# Hsieh
¤j¤j, ´N·Ð³Ò¤F, ¦ý¦³¤@­Ó²{¹³, ·í¿ï©w½s¸¹«á, «K¥X²{, °õ¦æ¿ù»~¶¥¬q76, Chart.Export fs '¥H¹Ïªí¶×¦¨¹Ï¤ù, ¦ý¹Ï¤ù却¶K¤W¤u§@ªí1, a1¦ì¸m, ²{¤W¶Çªþ¥ó, ½Ð¤j¤j±Ð¾É,
ªí³æ¹Ïªí¬d¸ß.rar (648.85 KB) [

TOP

¦^´_ 24# Hsieh
hsiehª©¤j, ¦w¦n,
³o­Ó¥Ø¿ý¦ì¸m¤£¦s¦b, ³o¨ì©³¬O«ü, ¦]¤p©f²z¸Ñ, §@·~¨t²Î¤¤¤@¯ë¿ì¤½«Ç³n¥ó³£·|¦³¹Ï¹³ÀÉ, ¦Ó¤p©f¤]¯à¹B¥Î¤W­zµ{¦¡, ¦Ó¤j¤j¦^À³¤W­z¼Ó¥D¬O«ü³o­Ó¥Ø¿ý¦ì¸m¤£¦s¦b, §Æ±æ¤j¤j¯à¸Ñ»¡¤@¤U, ¦P®É¦b³o±¡ªp¤U, ¥i¦³¤è¿ìÀ±¸É..ÁÂÁÂ!!

TOP

¦^´_ 26# 317


    ¥i¯à¬O¹q¸£¤¤¨S¦³E¼Ñ¤À³Î§a
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 25# ©P¤j°¶
  1. Dim PicAr() As Picture '¹Ï¤ù°}¦C
  2. Dim fs As String  ' *** = "E:\temp.jpg" '¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m
  3. Private Const r = 4 '¸ê®Æ°_©l¦C¸¹
  4. Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æ
  5.     Dim Pic As Picture
  6.     fs = CurDir & "\temp.jpg"  '*** ³o¸Ì­×§ï¬°·í¤Uªº¥Ø¿ý ( CurDir )¬°¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m ***
  7.     With Sheet1
  8.         ReDim PicAr(.Pictures.Count)
  9.         For Each Pic In .Pictures '±N¨C­Ó¹Ï¤ù¸m¤J°}¦C
  10.             Set PicAr(Pic.TopLeftCell.Row - r) = Pic
  11.         Next
  12.         ComboBox1.List = .Range("A4", .[A4].End(xlDown).Offset(, 12)).Value '¤U©Ô²M³æ¤º®e
  13.     End With
  14.     Image1.PictureSizeMode = fmPictureSizeModeStretch '¹Ï¤ù¸ü¤Jªº«¬ºA
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 28# GBKEE
¥ýÁÂÁ¤j¤j,
     fs = CurDir & "\temp.jpg"  '*** ³o¸Ì­×§ï¬°·í¤Uªº¥Ø¿ý ( CurDir )¬°¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m ***
³o¥yªº·N«ä¬O«ü¥Ø¿ý¦ì¸m, ¬O«ü, ¦pc½Ld½L, ©ÎÀɮ׸ô®|, ¤j¤j¥i§_«ü¾É, ÁÂÁÂ!!

TOP

¦^´_ 29# ©P¤j°¶
  1. Dim PicAr() As Picture '¹Ï¤ù°}¦C
  2. Dim fs$
  3. Private Const r = 4 '¸ê®Æ°_©l¦C¸¹

  4. Private Sub ComboBox1_Change() '¿ï¾Ü½s¸¹¨Æ¥ó

  5. Dim k%, i%

  6. With ComboBox1

  7. k = .ListIndex '¤U©Ô¿ï³æ¿ï¨ú¦ì¸m

  8. For i = 1 To 11

  9.    Controls("TextBox" & i).Text = IIf(i = 11, .List(k, i) & .List(k, i + 1), .List(k, i)) '¤å¦r¤è¶ô¼g¤J

  10. Next

  11. End With

  12. PicAr(k).CopyPicture '½Æ»s¹Ï¤ù

  13. With Sheet1.ChartObjects.Add(1, 1, PicAr(k).Width, PicAr(k).Height) '·s¼W¹Ïªí

  14. .Chart.Paste '¶K¤W¹Ï¤ù

  15. .Chart.Export fs '¥H¹Ïªí¶×¦¨¹Ï¤ù

  16. Image1.Picture = LoadPicture(fs) '¸ü¤J¹Ï¤ù

  17. .Delete '§R°£¹Ïªí

  18. End With

  19. End Sub

  20. Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æ
  21.     Dim Pic As Picture
  22.     fs = CurDir & "\temp.jpg"  '*** ³o¸Ì­×§ï¬°·í¤Uªº¥Ø¿ý ( CurDir )¬°¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m ***
  23.     With Sheet1
  24.         ReDim PicAr(.Pictures.Count)
  25.         For Each Pic In .Pictures '±N¨C­Ó¹Ï¤ù¸m¤J°}¦C
  26.             Set PicAr(Pic.TopLeftCell.Row - r) = Pic
  27.         Next
  28.         ComboBox1.List = .Range("A4", .[A4].End(xlDown).Offset(, 12)).Value '¤U©Ô²M³æ¤º®e
  29.     End With
  30.     Image1.PictureSizeMode = fmPictureSizeModeStretch '¹Ï¤ù¸ü¤Jªº«¬ºA
  31. End Sub

  32. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Ãö³¬ªí³æ

  33. If Dir(fs) <> "" Then Kill fs '§R°£¼È¦s¹Ï¤ùÀÉ®×

  34. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD