返回列表 上一主題 發帖

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

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

各位大大好:
請教一下,下面代碼於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

謝謝~~

回復 1# takeshilin88

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

TOP

本帖最後由 takeshilin88 於 2022-8-2 14:50 編輯

回復 2# samwang

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

TOP

本帖最後由 samwang 於 2022-8-2 16:48 編輯

回復 3# takeshilin88

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

TOP

本帖最後由 takeshilin88 於 2022-8-2 17:27 編輯

回復 4# samwang


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

TOP

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

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

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

供您參考

TOP

快速鍵設定

快速鍵.png
5 天前 08:32

TOP

自訂功能區按鈕

能區按鈕.png
5 天前 09:01

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題