18/03/2023
Excel VBA 程式要怎麼寫?
- 錄幾個巨集,加些判斷式
- 到處找範例
- 交叉應用
- 簡化
網路上這麼多人提供的參考,若有心得一定要貼些回去的。
https://stackoverflow.com/questions/42091390/vba-range-to-jpg-picture
我的解答↓
Sub 巨集1()
PicDir = ActiveWorkbook.Path & "\"
PicFile = Format(Now(), "hh-mm") & ".png"
Sheets("工作表1").Select
Range("Q1:U10").CopyPicture Appearance:=xlScreen, Format:=xlPicture '複製範圍成圖檔
ActiveSheet.Paste '要利用這動作-1,才會真的存到 Clipboard
ActiveSheet.Shapes.Range(Array(Selection.ShapeRange.Name)).Select '選剛貼上的 Shape
Selection.Cut '要利用這動作-2,才會真的存到 Clipboard
sPSCmd = "powershell $img = get-clipboard -format image ; $img.Save('" & PicDir & PicFile & "')" '把 Clipboard 內容存成圖檔的 PowerShell
RetVal = Shell(sPSCmd, 0) '無聲無息的執行
End Sub