ªð¦^¦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

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD