儲存格範圍複製&另存成TIF檔 - Excel程式區

[發問] 儲存格範圍複製&另存成TIF檔

　暱稱: 南宮飄雪

1^# 跳轉到 »

發表於 2020-10-28 08:42 | 顯示全部帖子

本帖最後由 Joforn 於 2020-10-28 08:43 編輯

呃，2020-2-13发的新帖，都10月了还在顶帖，好執著啊:D

世界那麼大，可我想去哪？

　暱稱: 南宮飄雪

2^#

發表於 2020-10-28 10:30 | 顯示全部帖子

剛好今天不太忙，寫了一個效率高點了模組，可依照文件的相應后綴名生成指定格式的圖片文檔：

Sub Test()
Debug.Print SaveRangeToPictrue(Range("M2:V27"), ThisWorkbook.Path & Application.PathSeparator & "Test.BMP")
Debug.Print SaveRangeToPictrue(Range("M2:V27"), ThisWorkbook.Path & Application.PathSeparator & "Test.jpg")
Debug.Print SaveRangeToPictrue(Range("M2:V27"), ThisWorkbook.Path & Application.PathSeparator & "Test.EMF")
Debug.Print SaveRangeToPictrue(Range("M2:V27"), ThisWorkbook.Path & Application.PathSeparator & "Test.PNG")
Debug.Print SaveRangeToPictrue(Range("M2:V27"), ThisWorkbook.Path & Application.PathSeparator & "Test.GIF")
Debug.Print SaveRangeToPictrue(Range("M2:V27"), ThisWorkbook.Path & Application.PathSeparator & "Test.TIF")
End Sub

複製代碼

SaveRangeToPictrue函數代碼過長，直接放附件里了。

SaveRangeToPictrue.zip (61.05 KB)

世界那麼大，可我想去哪？

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。