[發問] excel 2021選取範圍複製成jpg檔失敗

takeshilin88

各位大大好：
請教一下，下面代碼於excel 2013執行後可將選取的範圍複製成jpg檔存在桌面，
但近日換電腦，在excel 2021執行後複製到桌面的jpg檔卻是空白的，
請問要修改哪裡的代碼才會正常呢？

Sub copyrange()
    Dim MyDate
    MyDate = Format(Now, "yyyy-mm-dd") & "_" & Format(Now, "hhnnss")
          Sheets(1).Select '移動到Sheet1
          Selection.Copy  '複製選取範圍
           Selection.CopyPicture    '選取複製成圖片
           With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart  '通過在當前工作表添加相同大小的圖表的方式轉存成圖片
               .Paste  '粘貼複製後的圖片
               .Export "C:\Users\PC\Desktop\" & MyDate & ".JPG"    '導出到桌面目錄下,以日期_時間命名圖片檔名
               .Parent.Delete  '刪除該圖片
           End With
End Sub

謝謝~~

samwang

回復 1# takeshilin88

我的2016使用上沒問題，請問你的問題在哪裡，可以用F8除錯，謝謝

takeshilin88

回復 2# samwang

     目前此代碼是做成按鈕方式執行，按鈕完成後查看產生的jpg檔內容：大小是選取範圍的大小，但是範圍內是空白的，如下圖：
    但是如果是按F8逐行偵錯的方式執行，卻是正常的(產生的jpg檔內容正常、大小正確)
    不知道是什麼原因造成的，可以幫我解惑嗎？
    補充一下：執行系統是win11下執行的excel 2021

samwang

回復 3# takeshilin88

依您的程式碼，要先選框擇範圍如附件然後在執行程式碼，請試看看，謝謝
框選區0張圖片，則轉出0張，如您描述空白
框選區1張圖片，則轉出1張
框選區2張圖片，則轉出2張
....
...

takeshilin88

回復 4# samwang


    都有先選好範圍，但是測試過只要是做成按鈕，使用按鈕執行就是空白，但是大小是選取範圍的大小。用F8就正常
    也試過將選取的範圍做成的jpg檔放到不同資料夾，也是一樣的狀況
    相同的檔案，在win10，excel 2013上執行正常

Andy2483

回復 5# takeshilin88
建議前輩試試兩種方式

1.使用快速鍵執行，例如ctrl+q,
框選好之後再按ctrl+q

2.或在上面的命令區設自訂按鈕執行

供您參考

Andy2483

快速鍵設定

下載 (87.33 KB)

2022-8-3 08:32

Andy2483

自訂功能區按鈕

下載 (160.51 KB)

2022-8-3 09:01

takeshilin88

回復 8# Andy2483

感謝Andy大大的回饋，後來有到Microsoft去提問，得到的回饋是不要使用Select或Selection，改用其他方式取代Selection即可正常使用了。

Joforn

回復  Andy2483

感謝Andy大大的回饋，後來有到Microsoft去提問，得到的回饋是不要使用Select或Selectio ...
takeshilin88 發表於 2022-8-8 16:13

其实是并不是Selection的问题，而是小几率的Chart.Paste粘贴失败的问题。使用单步追踪运行时，由于按下F8的时间间隔非常大，Chat.Paste就不会出现粘贴失败。
可以改用http://forum.twbts.com/thread-22884-1-1.html中方式，即导入其文件内的basSaveRangeToPictrue模块，然后直接在自己的代码中使用if SaveRangeToPictrue(Selection,"C:\1.JPG") then方式直接保存。由于SaveRangeToPictrue是直接由系统剪切板内直接读取图片信息，所以不会出现保存空白图片的现象