Hsieh

¦^´_ 11# hong912

¸Õ¸Õ¬Ý¤U¦Cµ{¦¡½X

1. Dim PicAr() As Picture '¹Ï¤ù°}¦C
   
2. Private Const fs = "E:\temp.jpg" '¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m
   
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(, , 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. 
    
21. 
    
22. Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æ
    
23. Dim Pic As Picture
    
24. With Sheet1
    
25. ReDim PicAr(.Pictures.Count)
    
26. For Each Pic In .Pictures '±N¨C­Ó¹Ï¤ù¸m¤J°}¦C
    
27.   Set PicAr(Pic.TopLeftCell.Row - r) = Pic
    
28. Next
    
29. ComboBox1.List = .Range("A4", .[A4].End(xlDown).Offset(, 12)).Value '¤U©Ô²M³æ¤º®e
    
30. End With
    
31. Image1.PictureSizeMode = fmPictureSizeModeStretch '¹Ï¤ù¸ü¤Jªº«¬ºA
    
32. End Sub
    
33. 
    
34. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Ãö³¬ªí³æ
    
35. If Dir(fs) <> "" Then Kill fs '§R°£¼È¦s¹Ï¤ùÀÉ®×
    
36. End Sub

½Æ»s¥N½X

ªí³æ¹Ï¤ù¬d¸ß.rar (1.28 MB)

¤U¸ü¦¸¼Æ: 42

2012-9-22 00:12

Hsieh

¦^´_ 18# hong912

½Ð¤W¶ÇµLªkŪ¨úªº°ÝÃDÀÉ®×
À³¸Ó¥u­n¬O¯à´¡¤J¨ì¤u§@ªí¤¤ªº¹Ï¤ù§¡¥iŪ¨ú¤~¹ï

Hsieh

¦^´_ 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)

Hsieh

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


    ¥i¯à¬O
Private Const fs = "E:\temp.jpg" '¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m
³o­Ó¥Ø¿ý¦ì¸m¤£¦s¦b

Hsieh

¦^´_ 26# 317


    ¥i¯à¬O¹q¸£¤¤¨S¦³E¼Ñ¤À³Î§a

Hsieh

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

1. Dim PicAr() As Picture '¹Ï¤ù°}¦C
   
2. Dim fs$
   
3. Private Const r = 4 '¸ê®Æ°_©l¦C¸¹
   
4. 
   
5. Private Sub ComboBox1_Change() '¿ï¾Ü½s¸¹¨Æ¥ó
   
6. 
   
7. Dim k%, i%
   
8. 
   
9. With ComboBox1
   
10. 
    
11. k = .ListIndex '¤U©Ô¿ï³æ¿ï¨ú¦ì¸m
    
12. 
    
13. For i = 1 To 11
    
14. 
    
15.    Controls("TextBox" & i).Text = IIf(i = 11, .List(k, i) & .List(k, i + 1), .List(k, i)) '¤å¦r¤è¶ô¼g¤J
    
16. 
    
17. Next
    
18. 
    
19. End With
    
20. 
    
21. PicAr(k).CopyPicture '½Æ»s¹Ï¤ù
    
22. 
    
23. With Sheet1.ChartObjects.Add(1, 1, PicAr(k).Width, PicAr(k).Height) '·s¼W¹Ïªí
    
24. 
    
25. .Chart.Paste '¶K¤W¹Ï¤ù
    
26. 
    
27. .Chart.Export fs '¥H¹Ïªí¶×¦¨¹Ï¤ù
    
28. 
    
29. Image1.Picture = LoadPicture(fs) '¸ü¤J¹Ï¤ù
    
30. 
    
31. .Delete '§R°£¹Ïªí
    
32. 
    
33. End With
    
34. 
    
35. End Sub
    
36. 
    
37. Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æ
    
38.     Dim Pic As Picture
    
39.     fs = CurDir & "\temp.jpg"  '*** ³o¸Ì­×§ï¬°·í¤Uªº¥Ø¿ý ( CurDir )¬°¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m ***
    
40.     With Sheet1
    
41.         ReDim PicAr(.Pictures.Count)
    
42.         For Each Pic In .Pictures '±N¨C­Ó¹Ï¤ù¸m¤J°}¦C
    
43.             Set PicAr(Pic.TopLeftCell.Row - r) = Pic
    
44.         Next
    
45.         ComboBox1.List = .Range("A4", .[A4].End(xlDown).Offset(, 12)).Value '¤U©Ô²M³æ¤º®e
    
46.     End With
    
47.     Image1.PictureSizeMode = fmPictureSizeModeStretch '¹Ï¤ù¸ü¤Jªº«¬ºA
    
48. End Sub
    
49. 
    
50. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Ãö³¬ªí³æ
    
51. 
    
52. If Dir(fs) <> "" Then Kill fs '§R°£¼È¦s¹Ï¤ùÀÉ®×
    
53. 
    
54. End Sub

½Æ»s¥N½X