- ©«¤l
- 54
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 81
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS XP
- ³nÅ骩¥»
- OFFICE 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2011-1-14
- ³Ì«áµn¿ý
- 2021-4-23
|
[µ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 |
|