Рабочая матовая краска с использованием excel-VBA

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") 

Хотя глядя на дату, я полагаю, вы поняли это сейчас ...