請問用vba截圖非篩選狀態可以擷取但篩選後不能請問該怎麼改呢

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2015-6-7 14:44 | 顯示全部帖子

回復 1# vavashop

試試看

Option Explicit
Sub EX()
Dim Sh As Worksheet, Rng As Range
Set Rng = ActiveSheet.Range("A1:v35") '指定的範圍
Set Sh = Sheets.Add '新增的工作表
Rng.AutoFilter 1, "A" '*** 請修改你的自動篩選條件 ***
With Sh '新增的工作表
Rng.Copy .[A1] '複製已自動篩選的範圍
.UsedRange.CopyPicture '使用範圍儲存格的螢幕影像複製到剪貼簿
With .ChartObjects.Add(1, 1, .UsedRange.Width, .UsedRange.Height) '新增圖表
.Chart.Paste '貼上圖片
.Chart.Export Filename:="d:\" & Format(Date, "yyyy-mm-dd") & "合計買賣比buy" & ".png"
End With
'DisplayAlerts 屬性特定如果巨集在執行時 Microsoft Excel 顯示特定的警告和訊息則為 True。讀/寫 Boolean。
Application.DisplayAlerts = False
.Delete '刪除'新增的工作表
Application.DisplayAlerts = True
End With
Rng.AutoFilter
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。

請問 用vba截圖 非篩選狀態可以擷取 但 篩選後不能請問 該怎麼改呢