- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 29# ©P¤j°¶ - Dim PicAr() As Picture '¹Ï¤ù°}¦C
- Dim fs$
- Private Const r = 4 '¸ê®Æ°_©l¦C¸¹
-
- Private Sub ComboBox1_Change() '¿ï¾Ü½s¸¹¨Æ¥ó
-
- Dim k%, i%
-
- With ComboBox1
-
- k = .ListIndex '¤U©Ô¿ï³æ¿ï¨ú¦ì¸m
-
- For i = 1 To 11
-
- Controls("TextBox" & i).Text = IIf(i = 11, .List(k, i) & .List(k, i + 1), .List(k, i)) '¤å¦r¤è¶ô¼g¤J
-
- Next
-
- End With
-
- PicAr(k).CopyPicture '½Æ»s¹Ï¤ù
-
- With Sheet1.ChartObjects.Add(1, 1, PicAr(k).Width, PicAr(k).Height) '·s¼W¹Ïªí
-
- .Chart.Paste '¶K¤W¹Ï¤ù
-
- .Chart.Export fs '¥H¹Ïªí¶×¦¨¹Ï¤ù
-
- Image1.Picture = LoadPicture(fs) '¸ü¤J¹Ï¤ù
-
- .Delete '§R°£¹Ïªí
-
- End With
-
- End Sub
-
- Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æ
- Dim Pic As Picture
- fs = CurDir & "\temp.jpg" '*** ³o¸Ìקאּ·í¤Uªº¥Ø¿ý ( CurDir )¬°¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m ***
- With Sheet1
- ReDim PicAr(.Pictures.Count)
- For Each Pic In .Pictures '±N¨CӹϤù¸m¤J°}¦C
- Set PicAr(Pic.TopLeftCell.Row - r) = Pic
- Next
- ComboBox1.List = .Range("A4", .[A4].End(xlDown).Offset(, 12)).Value '¤U©Ô²M³æ¤º®e
- End With
- Image1.PictureSizeMode = fmPictureSizeModeStretch '¹Ï¤ù¸ü¤Jªº«¬ºA
- End Sub
- Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Ãö³¬ªí³æ
-
- If Dir(fs) <> "" Then Kill fs '§R°£¼È¦s¹Ï¤ùÀÉ®×
-
- End Sub
½Æ»s¥N½X |
|