excel - 使用 excel-VBA 操作 Ms Paint

Question

我编写了一个代码，将图表从工作表(在我的 excel 工作簿中)复制到 Ms-Paint，然后保存结果。

Sub paintCharts()
ThisWorkbook.Sheets("DesiredData").Activate
With ActiveSheet.ChartObjects.ShapeRange.Group
    .CopyPicture
    .Ungroup
End With
Dim path_Paint As String
Dim paintID As Variant
path_Paint = "C:\Windows\System32\mspaint.exe"
paintID = Shell(path_Paint, vbNormalFocus)
Call AppActivate(paintID)
Call SendKeys("^V")
End Sub

我在 Call AppActivate(paintID) 收到错误消息此外，我想通过调用 Call SendKeys("^V") 询问是否然后 Call SendKeys("^S")将完成这项工作。

Answer 1

需要用油漆保存吗？您可以直接保存图表本身。

只需使用

Set objChart = ActiveChart 
objChart.Export ("filename.jpg")

虽然看日期，但我想你现在已经明白了……