標題: [發問] Chart的區域指定來源是ClipBoard [打印本頁]

---

作者: apolloooo    時間: 2013-2-21 10:02     標題: Chart的區域指定來源是ClipBoard

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    時間: 2013-2-21 10:23

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    時間: 2013-2-21 13:38

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)