[發問] Chart的區域指定來源是ClipBoard

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  ' <-  我只想把Chart的區域指定來源是ClipBoard，一直試不出來。請高手幫忙了。
End Sub

loquat

1. Sub Test()
   
2.     Dim MyData As DataObject, MyStr As String
   
3.     Set MyData = New DataObject
   
4.     MyData.GetFromClipboard    '获得剪切板内容
   
5.     MyStr = MyData.GetText     '赋值给变量
   
6.     MsgBox MyStr
   
7. End Sub

複製代碼

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

loquat

这里也是
http://www.officefans.net/cdb/viewthread.php?tid=80822