Operating Ms Paint using excel-VBA
问题 I've written a code to copy the charts from a worksheet (in my excel workbook) to Ms-Paint and then saving the results. 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 I am getting an error at the Call AppActivate