excel-VBA를 사용하여 Ms 페인트 사용

Question

워크 시트 (Excel 워크 북)의 차트를 Ms-Paint로 복사 한 다음 결과를 저장하는 코드를 작성했습니다. 내가 더 Call AppActivate(paintID)에서 오류를 얻고있다

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 SendKeys("^V")를 호출하는 경우를 물어보고 싶은 다음 Call SendKeys("^S")는 일을 할 것입니다.

Answer 1

페인트로 저장해야합니까? 차트 자체를 직접 저장할 수 있습니다.

그냥 사용

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

비록 날짜보고

, 당신이 지금 그것을 알아 냈다고 가정 ...