Question

vbs 剪切板图片 另存

下面这段已经把xlsx里的图片复制到剪切板中，怎么才能把这个图片另存呢？？

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("F:\test12\asd.xlsx")
Set xlSheet = xlBook.Worksheets("sheet1")

xlSheet.chartobjects(1).chart.copypicture

xlBook.Close (True)

msgbox "完成"

Answer 1

把 xlSheet.chartobjects(1).chart.copypicture
改成
xlSheet.chartobjects(1).chart.export("d:\123.jpg")
就行了 图片路径自己修改