[µo°Ý] Chartªº°Ï°ì«ü©w¨Ó·½¬OClipBoard

apolloooo

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

loquat

这¨½¤]¬O
http://www.officefans.net/cdb/viewthread.php?tid=80822

loquat

1. Sub Test()
   
2.     Dim MyData As DataObject, MyStr As String
   
3.     Set MyData = New DataObject
   
4.     MyData.GetFromClipboard    '获±o°Å¤ÁªO内®e
   
5.     MyStr = MyData.GetText     '赋­È给变¶q
   
6.     MsgBox MyStr
   
7. End Sub

½Æ»s¥N½X

You would be happy to see this link
http://bbs.csdn.net/topics/10334313