ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

[µ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
­É¿ú¤£ÁÙ¡A¤~¬O¤ý¹D

  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
¦V°ª¤â学习

TOP

这¨½¤]¬O
http://www.officefans.net/cdb/viewthread.php?tid=80822
¦V°ª¤â学习

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD