Msペイントでexcel-VBAを使用する

Question

ワークシート（Excelブック）のグラフをMsペイントにコピーし、結果を保存するコードを記述しました。

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

を使用し、私はあなたが今ではそれを考え出したと仮定...