- 帖子
- 16
- 主題
- 6
- 精華
- 0
- 積分
- 23
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 20
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2011-5-27
- 最後登錄
- 2012-6-27
|
感謝大大
在下不太了解您所提供之方法
但有參考另一種
Sub ExportNumChart()
Const FName As String = "D:\My Documents\My Pics\Numbers.jpg"
Dim pic_rng As Range
Dim ShTemp As Worksheet
Dim ChTemp As Chart
Dim PicTemp As Picture
Application.ScreenUpdating = False
Set pic_rng = Worksheets("Numbers").Range("B1:F25")
Set ShTemp = Worksheets.Add
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:=ShTemp.Name
Set ChTemp = ActiveChart
pic_rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ChTemp.Paste
Set PicTemp = Selection
With ChTemp.Parent
.Width = PicTemp.Width + 8
.Height = PicTemp.Height + 8
End With
ChTemp.Export Filename:="D:\My Documents\My Pics\Numbers.jpg", FilterName:="jpg"
Application.DisplayAlerts = False
ShTemp.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
----------------
可以達成輸出圖片
但是輸出圖都會有細細的白邊框 好像是圖表工作區
不曉得能否將此框消除或是黑色
感謝大大 |
|
發表於 2011-10-25 17:37
| 
