檔案中的兩個Sheet 複製到新的檔案問題 - Excel程式區

[發問] 檔案中的兩個Sheet 複製到新的檔案問題

1^# 跳轉到 »

發表於 2013-8-30 11:29 | 顯示全部帖子

回復 21# jackyliu

Sub RangeToPicture()
Dim rngSrc As Range
With ActiveSheet
Set rngSrc = .UsedRange
rngSrc.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With .ChartObjects.Add(Left:=rngSrc.Left, Top:=rngSrc.Top, Width:=rngSrc.Width, Height:=rngSrc.Height)
.Chart.Paste
.Chart.Export "C:\pic1.jpg"
.Delete
End With
End With
End Sub

複製代碼

靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。