µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» Chartªº°Ï°ì«ü©w¨Ó·½¬OClipBoard
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
Chartªº°Ï°ì«ü©w¨Ó·½¬OClipBoard
apolloooo
µoµu®ø®§
¥[¬°¦n¤Í
apolloooo
(É钱)
·í«eÂ÷½u
UID
3156
©«¤l
54
¥DÃD
7
ºëµØ
0
¿n¤À
81
ª÷¿ú
81
ÂI¦W
0
§@·~¨t²Î
WINDOWS XP
³nÅ骩¥»
OFFICE 2007
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
®ç¶é
¦b½u®É¶¡
43 ¤p®É
µù¥U®É¶¡
2011-1-14
³Ì«áµn¿ý
2021-4-23
¡@¼ÊºÙ:
É钱
¤¤¾Ç¥Í
©«¤l
54
¥DÃD
7
ºëµØ
0
¿n¤À
81
ÂI¦W
0
§@·~¨t²Î
WINDOWS XP
³nÅ骩¥»
OFFICE 2007
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
®ç¶é
µù¥U®É¶¡
2011-1-14
³Ì«áµn¿ý
2021-4-23
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2013-2-21 10:02
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
Chartªº°Ï°ì«ü©w¨Ó·½¬OClipBoard
Private Sub CommandButton1_Click()
Dim oRange As Range
Dim oCht As Chart
Set oRange = Range("A1:C3")
Set oCht = Charts.Add
oRange.CopyPicture xlScreen, xlPicture
oCht.Paste
oCht.ChartArea.Fill = clipboard ' <- §Ú¥u·Q§âChartªº°Ï°ì«ü©w¨Ó·½¬OClipBoard¡A¤@ª½¸Õ¤£¥X¨Ó¡C½Ð°ª¤âÀ°¦£¤F¡C
End Sub
¼Ó¥D¼ö©«
Validation ¿z¿ïªº°ÝÃD
¦p¦ó§âÀx¦s®æ A1:D10 ªº¤º®eÅܦ¨¬Û¤ù¥t¦s¦¨
¤ÀªR¥i¯à«ÂЪºÄæȨæbListBox¤¤Add°ß¤@È
¦hÓ¤u§@ªíªº©T©wÀx¦s®æ¥[Á`(·sµo²{)
¦p¦ó§Ö³t³B²z¤j§å¶qªº¸ê®Æ¡H
»s§@µû¤Àªíªº°ÝÃD¡I
¦¬ÂÃ
¤À¨É
É¿ú¤£ÁÙ¡A¤~¬O¤ý¹D
loquat
µoµu®ø®§
¥[¬°¦n¤Í
loquat
·í«eÂ÷½u
UID
12452
©«¤l
48
¥DÃD
1
ºëµØ
0
¿n¤À
53
ª÷¿ú
53
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
2010 & 2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
China
¦b½u®É¶¡
18 ¤p®É
µù¥U®É¶¡
2013-1-12
³Ì«áµn¿ý
2013-11-23
¤¤¾Ç¥Í
©«¤l
48
¥DÃD
1
ºëµØ
0
¿n¤À
53
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
2010 & 2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
China
µù¥U®É¶¡
2013-1-12
³Ì«áµn¿ý
2013-11-23
2
#
µoªí©ó 2013-2-21 10:23
|
¥u¬Ý¸Ó§@ªÌ
Sub Test()
Dim MyData As DataObject, MyStr As String
Set MyData = New DataObject
MyData.GetFromClipboard '获±o°Å¤ÁªO内®e
MyStr = MyData.GetText '赋È给变¶q
MsgBox MyStr
End Sub
½Æ»s¥N½X
You would be happy to see this link
http://bbs.csdn.net/topics/10334313
¦V°ª¤â学习
TOP
loquat
µoµu®ø®§
¥[¬°¦n¤Í
loquat
·í«eÂ÷½u
UID
12452
©«¤l
48
¥DÃD
1
ºëµØ
0
¿n¤À
53
ª÷¿ú
53
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
2010 & 2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
China
¦b½u®É¶¡
18 ¤p®É
µù¥U®É¶¡
2013-1-12
³Ì«áµn¿ý
2013-11-23
¤¤¾Ç¥Í
©«¤l
48
¥DÃD
1
ºëµØ
0
¿n¤À
53
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
2010 & 2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
China
µù¥U®É¶¡
2013-1-12
³Ì«áµn¿ý
2013-11-23
3
#
µoªí©ó 2013-2-21 13:38
|
¥u¬Ý¸Ó§@ªÌ
这¨½¤]¬O
http://www.officefans.net/cdb/viewthread.php?tid=80822
¦V°ª¤â学习
TOP
ÀR«ä¦Û¦b :
¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·